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| 
H 1 001 MODULE PATENC ( 
; ; i EF RVARIANT EQL 1 
; : Bob a] ADDRESSING_MODE (EXTERNAL = LONG_RELATIVE, NONEXTERNAL = LONG_RELATIVE), | 
; § Bene IDENT = ‘V04-000' 
; 00 ds 
: 8 0008 1 BEGIN 
; G 0009 1 | 
; 10 0010 1 !+¢ 
3 v Oot } J SeeeseoeenconrososeqeneseeserenenereeeeeeenereresoorosenseseesooonsoteeerTTs 
3 Hi * 
; ig Go1§ 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
; (614 014 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
; 1? Bot? ! 2 ALL RIGHTS RESERVED. * 
P ; % 
we 9017 1 !® THIS SOFTWARE IS FURNISHED UNDER A L Sceaee AND MAY BE USED AND COPIED * 
; Bots 1 !* ONLY IN ACCORDANCE WITH E TERMS SUCH LICENSE AND WITH THE * 
; 0019 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE . THIS * 
; a 0020 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
3 1 itd 1 !* QO RSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 ¢ o0ss : 7 TRANSFERRED. * 
3 if ® 
; 4 bose 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
3 5 0025 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
: $$ 4 g ; * CORPORATION. * 
3 '® * 
; «= 0028 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
: $3 0029 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
3 0 0030 1 !* * 
: 1 0031 1 !« * 
3 ¢ Boas LL ee eee RRA 
; £ 0033 1! 
; O34 0034 1 !-- 
; 0035 1 
; 0036 1 !++ 
ee 0037 1 ! FACILITY: ATCH 
; #8 0038 1} VAX INSTRUCTION ENCODER. 
; 0039 1! 
; 40 0040 1 ! Version: v03-002 
; (41 0041 1! 
3 $§ 0042 1! Mistery: 
; 4 0045 1! uthor: : : 
; | «6446 044 1! Kevin Pammett, April 1977: Version 01 
: «645 045 1! 
; 46 0046 1 ! MODIFIED BY: 
; 6r 0047 1! | 
; 48 0048 1! v03-003 MTROO11 Michael T. Rhodes 26-Jul-1982 
; 6349 049 1! Modify immediate mode operand generation to phe 1*#literal 
3 9 Boas ' : to be used with a byte context operand. 
; 52 0058 1! v03-002 MTRO006 Michael T, Rhodes 07-JUN-1982 
; 0053 1! Add [*#literal functional it to Foukines GET_NEXT_TOKEN 
; «54 0054 1! GET_OPERAND, and ENC_OPERAN The context , {tag ITHAT -SFEN | 
; 0055 1! has-been added to PATGEN. REQ” and is reset in only “two places. 
3 28 0056 1! The end of encoding an absolute Literal n ENC OPE ERAND and in 
Pr 0057 1! the end of command processing in PATSSET_CONTERT. 
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5 os 28 1! 

; 59 1! V03-001 MTROO04 Michael T. Rhodes 4-MAR-19 

; ¢ na : Fix endless loop conditions in routine Get OPERAND. | 
3 ae Bch eerveaceed Py Ste aterctne the ttsust loa feni 
3 or Gos } pointer. Fixes SPR ALM 17a ° gett eis dos» | 
? & 096s 1 V02-022 KDM0052 Kathleen D. Morse 28-APR-1981 | 
66 898 ! } Fix bug that found any address ending in 2D illegal. 
; 068 1} v02=-021 PCG0001 Peter George -FEB- | 
; 3 st4 } } Add require statement for Pfes:PATDEF RES’ — 

; 0071 1: 

3 0072 1 !-- 


FFF 


FFF 
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v0u+000 ergo 1 8be 98:8 :a3 PN KSUMGMASTERSCPATCH. SACIPATENC.B3204%° (23 
; 73. 1 FORWARD ROUTINE 
; 74 «1 PATSINS_ENCODE, ' Encode an instruction 
; 75 1 GET_NEXT TOKEN, ' Extract next token from input stream. 
3 18 1 GET-LABEC_: NOVALUE, ' Extracts a label from instruction string i. 
; 077 1 GET_OPCODE ! Extract opcode from instruction string. 
$ 378 1 GET-OPERAND, ! Acquires a lexical operand 
3 079 1 ENC_OPERAND ! Encode an operand reference. 
3 080 1 ASSOME_AT_PC, ! Temporary ‘look ahead’ routine 
; Vt 1 ! to implement <operand> ::= <number> 
; 00 § 1 INST OUTPUT, ' Output bytes of instruction. 
; 0083 1 OPCOBE_MATCH, ! Find opcode in OPINFO table. 
; oe 1 MAR_GET_LEX ! Gets a MARS Lexeme 
3 ht ADD"LEX~T_OPRND : NOVALUE, ! Annexes a lexical string onto an operand s | 
: 086 1 PATSREDOCE_INS : NOVALUE ' Reduces expressions and symbols in instruc 
3 0087 1 PATSRESOLVE_INS : NOVALUE ; ! Resolves forward references for command 
0088 1 
3 0089 1 LIBRARY ‘SYSSLIBRARY:LIB.L32'; 
; 0090 1 REQUIRE ‘SRC$:SYSLIT.REQ'; 
; 0140 1 REQUIRE ‘SRC$:VXSMAC.REQ'; 
; 0205 1 REQUIRE ‘SRC$:PATGEN.REQ'; 
: 0427 1 REQUIRE ‘SRC$:PATPCT.REQ'; 
| Sec | ROUEN SRA EER 
3 U : VAX ° 3 ! Literals and macros related to opcodes 
0744 1 REQUIRE ‘SRC$:VAXOPS.REQ' ! Li L d 
: 101d | REQUIRE "LIBS:PATMSG.REO"; paeTy halte ot t1 
3 : as 3 ! error reporting 
: 1186 1 REQUIRE ‘SRC$:SYSSER.REQ'; ! Macros for diagnostic output. 
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; R121 1 
: R121 1 
; RI 1 
: Ri2del 1 
; Ri222 1 


' formats a Line and outputs to the terminal 


TINE 


PAT$fao_out; 
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; 101 1768 1 REQUIRE ‘SRCS$:PREFIX.REQ'; ! Define structure macro | H 
WS § 14 1 REQUIRE "SRC$:PATPRE.REQ'; ! Defines ASD structure : 
; ¥ 1619 1 REQUIRE ‘SRC$:BSTRUC.REQ'; : 
; : ¢ 19? : REQUIRE ‘SRC$:DLLNAM.REQ'; : 
; 196 1784 1 EXTERNAL ROUTINE ; 
; 10 1755 «(1 PATSBUILD ! Builds a path name structure | : 
; 108 1796 1 PATSDELETE_PATH : NOVALUE, ' Deletes a path name structure : 
: 109 1757 1 PATSDEF INE~SYM, i Defines a user symbol | : 
> 110 1798 1 PATSFILL_BOF : NOVALUE, ! Routine to allocate and fill a buffer ; 
; 6111 1759 «#1 PATSFIND_SYM, ! Find symbol in a tee Pe voy symbol tabl : 
; 11g 1760 1 PATSF IND-VAL ! Find value for symbol in a doubly-Linked s| : 
: 11 1761 1 PATSFREERELEASE : NOVALUE, i Deallocates free storage ; 
; (116 1706 1 PATSFREEZ, ' Allocates and zeros some free storage 3 
3 199 1765 1 Sh: ell aaa ! Routine to create branch instruction subst : 
; 116 1764 1 RADS ' Routine to convert ASCII to RAD5O : 
3; 117 1765 1 SYSSFAOL : ADDRESSING_MODE (ABSOLUTE), ! System service to do formatted output : 
; #118 1708 1 PATSFAO_PUT : NOVALUE, ! Formatted ASCII output : 
; 119 1767 #1 PATSMAR_GET_LEX ' Lexical scanner | : 
: 120 1768 1 PATSOUT-PUT~: NOVALUE, i Actually write out Lines to tty ; 
3 \$1 1769 1 PATSREG_MATCH; ! See if a char string is a reference ; 
. 5 ¢ 1770 1 : to a register. $ 
3; ve 1771 +#1 : 
: 124 127¢ 1 EXTERNAL | ; 
: 125 1773 «1 PATSGL_SYMTBPTR, ! Pointer to current symbol table Listhead e ; 
; 126 1774 1 PATSGL_OLDLABLS, : Pointer to old label table Listhead entry | : 
: 127 1775 «(1 PATSGL_TEMP_BUF : BLOCKC,BYTE), ! feaporary instruction buffer 3 
; 128 1776 1 PAT$GL_BR_DISPL, ' Branch displacement that did not fit ; 
3 94 1777 «1 PATSGL_CONTEXT : BITVECTOR, ' Context bits for PATCH commands H 
: 130 1778 #1 PATSGL_ERRCODE, ! Error code ; 
; «(1351 1779 «1 PATSCP_OUT_STR : REF VECTORC,BYTE], ! Points into output string 3 
3 138 1780 1 PAT$SGB_MOD PTR : REF VECTORC,BYTEJ, : 
. ts 1781 1 PAT$GB_OPIRFO : OP TBL ! General OPcode information structure F 
3: «134 178 1 PATSGB_OPINFO1 : BLOCKVECTORESIZOPINFOI ,OPTSIZE .BYTEI. ! Single byte OPcodes : 
; 135 1783 (1 PATSGB_OPINFO2 : BLOCKVECTORCSIZOPINFO2,OPTSIZE,BYTEJ, ! Double byte OPcodes | : 
: 136 1784 1 PAT$SGB-ALIAS : BLOCKVECTORLSIZALIAS,ALTSIZE,BYTE), i OPcode alias table __ ; 
; 137 1785 1 PATS$GL_BUF SIZ, ! Data vector that describes opcodes : 
; «4138 1786 1 PATSGL_FWRCHD; ! Forward reference table Listhead : 
: «4139 1787 1 : 
; 140 178 1 OWN 3 
; 13) HA : BYTES_IN_OPRND; ! Number of encoded bytes in current operand | : 
: . 
: 128 1791 1 LITERAL 3 
3 «(146 1736 1 PATSK_BR_RANGE = 2 ! Error code for branch displacement out of : 
; 145 17935 1 MAX_R = {5 ! Maximum number of registers - 1 : 
3 108 17 : MAX_BUF _SIZ = 512, ! Maximum buffer size for pathname and opera. : 
; «4148 Has 1 fee : 
3 3 a 4 : Return values for routine GET_OPERAND. : 
s 131 1799 1 OPR FOUND = 1, ! Operand found and successfully reduced é 
; 136 1800 1 NO_MORE OPR = 0, ' No more operands 3 
; 1801 1 OPR_ERROR = 2, ! Expression reduction error found in operan 3 
3: (156 1308 1 OPR_FORW_REF = 3, ! Forward reference inside operand 3 
2 939 1805 1 ; 
; 136 1804 1 !++ rie : 
; «15 1805 1 ! Bit masks for operand length indicators: B8*,W*,L*, and C. - 
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128 1 ! Note that the masks for B*, W* and L* are also the number of bytes | 
1 1 i to be included in the operand by these indicators. always indicates | 
199 : ! context indexed and always donates one additional byte. 
166 1 8_HAT_ MASK = 1, ' B* mask 
16 1 WIHAT-MASK = 2, ! W* mask 
164 1 L-HAT-MASK = 4, ' L* mask 
165 1 CONT_INDX "MASK = 8; ' Context indexed mask 
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GLOBAL ROUTINE PATSINS_ENCODE( INST_CS, OUT_BYTE_STREAM, OUT_PC, ASM_DIR_TBL, BUFFER_DSC ) = 


lit ERECTOR BSNS SMGUUAURNRE A? 


< 
oO 
_ 


tee 
! 
FUNCTIONAL DESCRIPTION: 


This routine examines an ascii stream which it is passed a pointer to, 
and tries to come up with the instruction byte stream this would 
correspond to. 


} 

| 

} 

| 

CALLING SEQUENCE: | 

PATSINS_ENCODE (); 

INPUTS: 
| 


INST_CS - A pointer to the counted string which 
the user input as the supposed intsruction. 


OUT_BYTE_STREAM = The address of where to put the 
counted instruction stream genereated. 
OUT_PC - The PC soe ee address) where the instruction 

will eventually reside. This is used only for 
PC-relative address calculations. 
ASM_DIR_TBL - Address of descriptor for assembler directive table. 
BuFFER_BSC - String descriptor for current encoded instruction buffer. 


' 
i IMPLICIT INPUTS: 


FEE FAWN AAAAAAPPENPIMOPNPNPPONI 2 OO 
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PATSGB_OPINFO = Data vector which contains the instruction 
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eee mnemonics and related information. 
548 OUTPUTS: 
848 The counted instruction (byte) stream is put in the byte vector 
ths pointed to by the input parameter. 
851 IMPLICIT OUTPUTS: 
£36 
85 NONE. 
854 
$22 ROUTINE VALUE: 
Be) TRUE or FALSE, depending on whether the encoding 
S28 ‘worked’ or not. 
860 SIDE EFFECTS: 
861 
306 None. 
86 
864 aoe 
865 
BEGIN 
MAP 
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OUT_BYTE_STREAM : REF VECTORC,BYTE), 
INST_CS = REF VECTORC,BYTE) 
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| 
| 
ASH DIRATBL : REF BLOCK, BYTEI, | 
BUFFER_BSC : REF BLOCKL,6YTE); 


LOCAL 
Count of bytes in encoded operand 

Flag if operand found valid 

One entry in assembler directive table 

Next token from instruction 


OUNT, | 
OPR_FLAG 
ASD TBL_ENTRY : BLOCKCASDSC_SIZE, BYTE), | 
Actual number of operands processed 


KEN, 
ACT NUM _OPRNDS, 
INSTR_STRING : VECTORCNO_OF_INP_CHARS BYTE), 


ONAN NSN 


OOONOUE WN 


PC of start of instruction 
We make our own gopy of the instruction 
string so we don't have to worry about 


MEUM —OOONOUE 


overwriting parts of it. 


INST_STG_DESC : BLOCK (8, BYTE], Instruction string descriptor 
OPINFO_PTR : REF BLOCK OPTSIZE BYTE], Pointer into the OPINFO table 
OUT_BYTE_PTR : REF VECTORC, BYTE), 


This pointer contains the address 
of where each successive byte of 
instruction is to be placed. 


BRANCH SIZE, 


OPRNDS 

OPRND_S$TG_DESC : BLOCKC12,BYTE), 
OPRND “BUF: VECTOREMAX BuF $12, B8YTE), 
OPCODE_NAME : REF VECTOR 


Number of operands to expect. 

String descriptor for next operand 

Buffer to hold next operand 

BYTES; ! Pointer to ascii opcode name of instructio 


me a ee ee ee ee me a ed ed ed ed ed dd od = 


48 895 LITERAL 

49 8 JMP_OPCODE = %X‘17', ! JMP instruction opcode 

20 44 JSB_OPCODE = %Xx'16'; ! JSB instruction opcode 

26 $99 !e+ 

27 44 } Remember starting PC for instruction in case substitution is required. 

55 908 PC_START = .OUT_PC; 

56 90 

57 904 '+¢ 

58 905 ! Copy the instruction oer ing into a local area so that it won't be overwritten. 

59 906 ! Then put a terminator at the end of it as this will make recognizing the EOS 

“ei pith : easier for the scanner. Also initialize the pointer to the return buffer. 

$e 909 CHSMOVE( .INST_CSCO) +1, INST cso} INSTR_STRING ); 

6 910 2 INSTR_STRING f; NSTR_STRING (0) + 14 = 0; 

64 911 INSTR_STRING = .INSTR_STRING (O] ¢ 1; 

65 gg INST_STG_DESC COSCSW_LENGTH] = .INSTR_STRING (0) 

68 91 INST_STG_DESC CDSCSA_ POINTER] = peste stains 1] | 

6 914 OUT_BYTE-PTR = OUT_BYTE_STREAM(1); 

68 915 
316 'e¢ 
91 ! Check if there is a label on the instruction. If so, GET_LABEL removes it 
aig and enters it into the definition table. 
3 9 GET_LABEL(INST_STG_DESC, .OUT_PC, TRUE); 
9 é 'e¢ | 
o ! Extract the opcode mnemonic from the instruction string and encode the | 
924 ; porrpspens ing secede into the ouseus byte stream. Pass the address of the 
925 ' Local, OPINFO_PTR, so that GET _OPCODE can initialize this. This is done in 
y $ ! this yey because it is GET OPCODE who looks up the opcode (and hence finds | 
% ! the OPINFO record), but it is here that the other OPINFO information is | 
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} needed. GET_OPCODE does not return if the opcode is unrecognized. 
OPCODE _NAME = GET_OPCODE( INST_STG_DESC, OUT_BYTE_PTR, OPINFO_PTR, OUT_PC); 


lee 

' GET_OPCODE has stuffed the ppcode into the instruction stream (for all MACRO 
! instructions but not assembler directives). The pointer has been updated so 
! that further code will go into successive bytes. 


if (-OPINFO_PTRCOP_NUMOPS3 NEQ ASM_DIR_OP) 
BEGIN 


14 

! The instruction-stream ounsoeeerne pointer now points to the 
! beginning of the operand reference string, if there is one. This must 
' be the case unless this opcode has no operands. 


OPRNDS = .OPINFO_PTR C OP_NUMOPS J; 


ELSE 
lee 
' Set a large number of operands as it is unknown how | operands 
! an assembler directive may have. Also set_up an entry in the 
' assembler directive table. This is for PATCH verification output to 
' the journal file. 
BEGIN 
OPRNDS = MAXOPRNDS - 1; 
ASD_TBL_ENTRYCASDS$L_PC) = .OUT_PC; 
ASD-TBL-ENTRYLASDSL_OPINFO) = 7OPINFO_PTR; 
- aa aaitail ASDSB_NUM_OPRND] = 0; 
oe 


Loop trying to extract each operand reference. 


ACT_NUM_OPRNDS = 1; 
WHICE .ACT_NUM_OPRNDS LEQ .OPRNDS 


BEGIN 
e+ 


' Decide what type of branching the following routine will be allowed 

' to use, if any. This is done now as the OPINFO information 

' available. or the same reason, the PC-relative context information 
' is passed. Start by assuming the usual case. 

' ALL assembler directive operands are handled as a special case. 

' The number of bytes to be encoded is the OP_BR_TYPE value. 


BRANCH_SIZE = NO BR; 

1c ACT _MUM_OPRADS EQL .OPRNDS) OR (.OPINFO_PTRCOP_NUMOPS) EQL ASM_DIR_OP) 
lee 
! Grenenene can only be considered for the last operand of an 
! instruction which has less than the maximum number o 


! operands. This assumption was made in constructing the 
! data structure (OPINFO) from which encoding (and decoding) 


Pp 
JPATENC.B32;1) (3) 
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104-080 =300 138% 99: 29: }3 DISKSVMSMASTER: CPATCH. SRCJPATENC.B32; 1 79 (3) | 

; 3 19 5 ; : works. See PATINS.B32 for more information. 

3 9 19 4 dF (ACT. NUM_OPRNDS LSS MAXOPRNDS) OR (.OPINFO_PTRLOP_NUMOPS] EQL ASM_DIR_OP) 

; 2 19 $ i BEGIN 

; 1990 4 BRANCH SIZE = .OPINFO_ pTROP _BR_TYPE); | 

3 ae 199 ; IF (.BRANCH_SIZE EQLU-BR_L | 

; 46 1998 4 a BRANCH_SIZE = A_LONGWORD; | 

: 348 1995 . 

; 349 1996 1+e 

: 29 ba a Preprocess the operand, evaluating all expressions and symbols. 

; 36 1999 OPRND_ STG_DESCCDSC$W_LENGTH) = | 

; 35 000 OPRND-STG_DESCLDSCS$A AWPOINTER] = “Spay BUF ; 

; 354 001 OPRND STG DESCCDSCSW-MAXLEN] = MAX BUF S12; 

; 355 90¢ 4 F NOT (OPR_FLAG = GET _OPERAND ( "INST. -STG, DESC OPRND_STG DESC, TRUE, 

3 36 903 ‘ oe AFO_PTRCOP_CONTERT CAeT. _NUM_OPRNDS) J)) 

: 358 005 4 N 

: 23 006 H IF. .OPR_FLAG EQLU OPR_ERROR) 

: 361 008 4 RETURN(FALSE); ! Invalid expression 

; ¢ 009 ; IF OP INFO_ PTREOPS NUMOPS) EQL ASM_DIR_OP) 

; ¢ Bi ? 7 EXITLOOP ' An assembler directive has indeterminate # 

: 366 te 5 BEGIN 

; 36 014 3 SIGNAL (PATS, INSOPRND+MSGSK_INFO) ; 

3 015 RETURN(FA LSE); ! Insufficient operands 

; 016 4 END; 

3 HES END; 

; 019 

3 020 *Theck for forward referenced symbol. If this is the case, 

3 021 i update the pointers past this operand and create an entry 

; Ose ! in the ForWard Reference table for this operand. 

; 024 4% iF (.OPR_FLAG EQLU OPR_FORW_REF) 

: 025 3 THEN 

; 026 4 BEGIN 

3 027 4 LOCAL 

: 9 3 4 POIN NTER REF BLOCKC BYTE); 

; 4 POINTER = PATSFREEZ((FURSC.SIZE + A_LONGWORD -1)/A _LONGWORD) ; 

: 030 4 POINTERCFWRSL -FLINK] = .PATSGL_FWRLAD; 

: 31 4 PATSGL WRLHD POINTER; 

; 0 ¢ 4 POINTER FWR = ,OUT_PC | 

; 033 4 POINTER URS -buFoF FA = TBURFER_DSCCD SC$W_LENGTH + 

3 034 4 “OUT _BYTE PTR opr BYTE STREAM(1): | 

; 035 4 POINTERCFWRSW_OPRNDLNG] = .OPRND ue DESCCDSCSW_CENGTH); 

: 0 6 4 POINTERLFWRSA_OPRNDADR) = INST CSC1)~+ 

: 0 4 -OPRND_STG_DESCCDSCSA_POINTER] - INSTR_STRING(1)); | 

; O38 4 POINTERCFWRSA_OPINFO} = .OPINFO"PTR: | 

; 040 ; IF («COUNT = ,BYTES_IN_OPRND AND CONT_INDX MASK) NEQ 0) | 

; 
| 
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1 
TREAMC1] EQL JMP_OPCODE) OR 
REAMC1) EQL JSB_OPCODE)) 


_OPRND = L_HAT_MASK; 
NEQ NO_BRY 


= BRANCH SIZE 


T 


ELSE 


@zmrm 


P 
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COUNT = .COUNT + .BYTES_IN_OPRND + 1; 


UNT 
POINTERCEURSB_NUABYTES =", COUNT; 
FWRSB-NTHOPRND] = .ACT_NUM_OPRNDS; 


POINTER 
OUT_PC = .OUT-PC + .COUNT; 
OUT“BYTE_PTR = .OUT BYTE PTR + .COUNT; 


E PT B 
OPRAD_STG_DESCCOSCS@_LENGTH) = 0; 


'o4¢ 


Extract and encode one operand reference. Give up if this fails. 


BEGIN 
IF NOT (PATSGL_ERRCODE = 


-BRA 
THEN 
BEGIN 
t+ 
i 


ENC _OPERAND( OPRND_STG 
-OPINFO_PTRE OP_CONTEXT 
NCH_SIZE, OUT_PC, .OPI 


“Operand Syntax’ error. If instruction substution is enabled, 
! then attempt to substitute other instructions for this branch 


instruction. 


iF (.PATSGL_ERRCODE EQL PATSK_BR_RANGE) AND 


( PATSGL~CONTEXTL INST 


! Don't substitute for assembler dir 


a. AND 
(-OPINFO_PTRCOP_NUROPS NEQ ASM_DIR_OP) 


BEGIN 
OUT_BYTE_STREAMLO) 
PATSSUBST_INS(.OUT 


OU 
TE. 
END; 

RETURN(FALSE); 

END; 


_BY 


'¢ 
Check that the operand was completely used. If not, error. 


if (.OPRND_STG_DESCCDSC$W_LENGTH) NEQ 0) 


RETURN(FALSE); 


ACT_NUM_OPRNDS = .ACT_NUM_OPRNDS + 1; 


! 
! 
: 
5 
! 
5 
: 
: 
i 


am 
+ 


BYTE_PTR = OUT_BYTE_STREAM(1); 
REAM? .PC_START) 


11 
PATE 18-5 “1984 00:40:15 VAX=11_BLiss-32_v4.0-742 p PAI 
vO4=000 Ve-8ep-1986 19:59:53 DASKSVMSMASTERSCPATCH. SRCIPATENC.B3251°° (35 vou 


-TITLE PATENC 
IDENT \V04-000\ 
-PSECT _PATSOWN,NOEXE,2 


; : ¢ 038 } Check that there are not any extra operands. 
; 454 101 OPRND_STG_DESCCDSCSW_LENGTH) = 0; 
; 455 1 : OPRND-STG-DESCLDSCSA_POINTER] = OPRND_BUF; 
; 436 1 OPRND-STG-DESCLDSCS$W-MAXLEN] = MAX BUF SI?: | 
; 4 104 IF GET_OPERAND( INST_STG_DESC, OPRAD_STG_DESC, TRUE, 0) 
; 458 105 THEN 
; 459 1 BEGIN | 
; 460 1 SIGNAL (PATS _NUMOPRNDS+MSGSK_INFO, 2, .OPCODE_NAME, .OPRNDS); ! Too many operands 
; 461 Hs RETURN(FALSE); 
3 re | 10 END; 
: 46 119 
> 464 11 144 
; 465 Ng !' Calculate the number of bytes in the ‘instruction’ stream and copy this value 
3 138 MF into the Oth byte of the output vector. This makes it now a counted byte stream. 
; 468 115 OUT_BYTE_STREAMCO] = .OUT_BYTE_PTR - OUT_BYTE_STREAM(1); 
; 470 19 144 
: 471 118 ! Now if this was an assembler directive. Compute the number of operands it 
3 o78 119 ! had and enter that into the assembler directive entry. Then add this entry 
; re : Y ! to the assembler directive table. 
; 475 1 ¢ ACT_NUM_OPRNDS = .ACT_NUM_OPRNDS - 1; 
: 476 1 IF T.OPINFO_PTRCOP_NUMOPS] EQL ASM_DiR_OP) 
3 477 124 THEN 
3; 478 125 BEGIN 
3; 479 126 ASD_TBL_ENTRYCASD$B_NUM_OPRND] = .ACT_NUM_OPRNDS; 
; 480 127 PATSFILC_BUF(.ASM_DIR_TBL, ASD_TBL_ENTRY, ASDSC_SIZE); 
; 481 128 END; 
3 re; 129 
; 48 130 '+¢ ; 
3; 484 131 ! This is the only place where this routine returns the OK completion status. 
; 485 136 ! If some error was encountered, then a message was signaled and an 
; 486 13 ! UNWIND or RETURN(FALSE) occurred. The onty exception is branch of 
3 ret 13 out of range. In this case instruction substitution has been attempted. 
3; 489 136 RETURN( TRUE); 
: 490 137 1 END; 
-B 4 
ISESC_SIZE== 20 
TXTSC_SIZE== 4 
PALS$SC_SIZE== 16 
ASDSC_SIZE== 9 
FWRSC_SIZE== 24 
e-EXTRN PATSFAO_OUT, PATSBUILD_PATH 
-EXTRN PATSDELETE_PA 
-EXTRN PATSDEFINE-SYM, PATSFILL_BUF 
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.EXTRN pal $FIND_SYM, PATSFIND_VAL 

*EXTRN PATSrREET PATS 

*EXTRN ATSFREEZ PATSSUBST_INS 

*EXTRN RAD 0, SYSSFA 

-EXTRN PATSPAO PUT, APATSMAR _GET_LEX 

*EXTRN PATSOUT PUT PATSREG “MATCH 

*EXTRN PATSGL _SYMTOPT 

“EXTRN PATSGL~ “BLDLABLS 

“EXTRN PATSGL-TEMP 

*EXTRN PATSGL- “BR_DISPL 

SEXTRN PATSGL-CONTEXT, PATSGL_ERRCODE 

SEXTRN PATSCP~OUT STR, PATSGB_MOD PTR 

*EXTRN PATSGB “OPIRFO, PAT$GB_OPINFO1 

“EXTRN PATS$GB~ “OPINFOS, PAT$SGB_ALIAS 

TEXTRN PATSGL~BUF_SIZ, PATSGL—FWRLHD 


WEAK ACCESS-CHETK 
-PSECT _PATSCODE,NOWRT,2 


OFFC 00000 SENTRY PATSINS ENCODE, Save R2,R3,R4,R5,R6,R7,R8,- ; 1814 
5E FDSO. = CE 9 0000 MOVAB ReeaC ih : 
58 oC AC D0 0000 MOVL ur pe PC att + 1902 
50 4 BC 9A 00008 MOVZBL a@INST_CS, + 1909 
50 6 0000F INCL 80 ; 
FF70 CD 04 BC 50 : 00011 MOVC3 RO, @INST_CS, INSTR_ STRING ; 
50 FF70 CD 9A 00018 MOVZBL INSTR_STRING + 1910 
FF71 CD40 94 0001D CLRB ss INSTRTSTRIN 8 a FRO2 ; 
FF70 CD 96 00022 INCB. INSTR ~STRIN + 1911 
FF68 CD FF70 CD 98 90026 MOVZBW INSTRISTRING, INST_STG_DESC : 1912 
FF6C «CD FF71 CD 9€ 00¢D MOVAB INSTR STRINGS 1, INST _STG_DESC+4 : 191 
50 08 AC 00 00 4 MOVL  OUT_BYTE_STREAM, : 1914 
57 01 AO 4 0038 MOVAB 1(RO), R? F 
08 AE 57 00 0003C MOVL 7, OUT_BYTE_PTR ; 
01 DD 00040 PUSHL Ae : 1920 
0c AC OD 90042 PUSHL T PC : 
FF68 CD SF 0004 PUSHAB OUST §1G_DESC : 
00000000v_ EF 03 FB 00049 CALLS #3, GET_CABEL a 
Oc AC 9F 00050 PUSHAB OU : 1930 
08 AE 9F 00053 PUSHAB OPINFO_PTR : 
10 AE 9F 00056 PUSHAB OUT BYTE_PTR F 
FF68 CD 9F 00059 PUSHAB INST STG DESC : 
00000000V_ EF 4 FB 00050 CALLS #4, GET_OPCODE 3 
6 50 D 0064 MOVL RO ODE _NAME ; 
5 06 =A p 67 MOVL OPINFO PTR7 RS : 1937 
56 04 AS 9E 00068 MOVAB 4(R5) ; 
FFFFFFFE  8F 66 04 i FC O06F CHPY #0, wh, (RO), #2 
59 66 04 0 FE OO7A EXTV #0, #4, (R6), OPRNDS + 1946 
F 11 OO07F BRB 2s + 1937 
59 5 D 81 1$ MOVL #5, OPRNDS + 1956 
F4 OAD 0c At D MOVL out. PC, ASD_ BL ENTRY > 1957 
F8 AD 5 p 09 9 MOVL 5, ASO_TBL~ENTRY+4 : 1958 
FC «OAD O94 D CLRB = ASD_TBL~ ENTRY. "3 : 1959 
53 Q1 00 0 30 as: MOVL #1, ACT"NUM_OPRNDS > 1965 
59 ; D1 00093 3$: CMPL act _NUM“OPRADS, OPRNDS > 1966 
03 15 00096 BLEG ; 
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0188 31 0098 4$: BRW 19$ ; : 
D4 00098 5$: CLRL _ BRANCH_SIZE t 1977 3 
59 Dt 09D CMPL  ACT_NUM_OPRNDS, OPRNDS + 1978 : 
0B 1 OA0 BEQL : ; 
FFFFFFFE  8F 66 04 00 : OA CMPV 36s, «#4, (RO), #2 : ; 
3 OAB BNEQ : ; 
06 53 01 OOOAD 68: CMPL  ACT_NUM_OPRNDS, #6 + 1987 | : 
08 19 0080 BLSS ; ; 
FEFFFFFE SF 66 04 ti FS ets SNES #0, #4, (R6), #-2 3 : 
58 07 AS 04 04 EF O08p 7$: EXTZV #4, #4, 7(R5), BRANCH_SIZE + 1990 ; 
03 38 D1 oo¢ CMPL BRANCH. SIZE, 43 + 1991 ; 
0 if C6 BNEG  8$ ; ; 
58 04 00 000¢ MOVL #4, BRANCH SIZE + 1993 ; 
FFSC CD B4 000CB 8$ CLRW  OPRND_STG_BESC + 1999 ; 
FF60 CD OC AE 9E OO0CF MOVAB OPRND“BUF; OPRND_STG_DESC+4 : 2000 ; 
FF 64 cp 0200 8F 80 90005 V #512, OPRND_STG_ DESCT8 + 2001 ; 
51 02 78 000DC ASHL #2, ACT_NUM-OPRNADS, R + 2003 ; 
50 66 04 51 ai 000E0 EXTZV R1, #4, 7 (ROS, : : 
54 01 50 78 O00ES ASHL 0; #1, R4 : ; 
54 DD 000E9 PUSHL ; : 
01 DD O00EB PUSHL #1 + 2002 ; 
FFSC CD 9F OODED PUSHAB OPRND_STG_DESC : ; 
FF68 CD 9F OO0F1 PUSHAB INST STG DESC : : 
00000000V_ EF 04 FB OO0FS CALLS #4, GET_OPERAND 3 3 
5A 50 DO OOOFC MOVL RO PR 3 3 
20 SA EB OOOFF BLBS  OPR_FLAG, 10$ : ; 
02 SA D1 00102 CMPL OPRTFLAG, #2 > 2006 F 
18 13 00105 BEQL ; ; 
FFFFFFFE  8F 66 04 00 EC 00107 CMPV =«-_«s#0,,- #4, (RO), #H2 + 2009 : 
86 13 00110 BEQL ; ; 
00608283 8F DD OO112 PUSHL #7176835 + 2014 : 
000000006 00 01 FB 0011 CALLS #1, LIB$SIGNAL : ; 
0167 31 OO11F 9 BRW E + 2015 ; 
03 SA D1 00128 10$ CMPL OPR_FLAG, #3 + 2024 ; 
03 13 001 BEQL 11$ ; : 
009D 31 01 7 BRW 17$ ; ; 
06 dD : 12A 11$:  PUSHL #6 + 2029 3 
000000006 EF 01 FB 001 ‘ CALLS #1, PATSFREEZ : ; 
60 000000006 Ef DO 001 MOVL PATSGL_FWRLHD, (POINTER) : 2030 ; 
000000006 EF 0 DO 0013A MOVL POINTER, PATS$GL_FWRLHD + 2031 ; 
04 AO oc AC b0 00141 OUT PC, 4(POINTER) + 2032 ; 
51 14 BC 3C 00146 MOVZ2WL @BUFFER_DSC, R1 > 2034 : 
51 08 Ag C6 O14 OUT_BYTE_PT ; ; 
14 AO 51 57 ¢ 146 SUBL3 R7,~R1 20 (POINTER) ; ; 
08 Ad FFSC }=6CD OBO 0019 MOVW  OPRND_STG_DESC, S(POINTER) ; 2035 ; 
51 FF71 cD % 0159 MOV INSTR7STRING#1, R + 2037 3 
51 FF60 CD i ¢ 00155 UBL3 R1, OPRND STG_DESC+4, RI : : 
51 04 AC C0 00164 ADDL2 INST cs ; : 
0c AO 01 Al 4 0168 OVAB 1(R1J, 12(POINTER) : 036 ; 
10 Ao 23 D 0160 VL —-RS, ‘TA(POINTER) : 2038 ; 
52 D4 00171 CLRL COUNT ; + 2039 3 
52 00000000" EF FFFFFFF7 ef : O175 BICLS #39. BYTES_IN_OPRNP?, COUN) ; 2040 : 
00000000" er ba a8 Suat2 ie Sree IN oPRaD a irk : 
° orn Ps é 
17 oe 91 00188 12$ CMPB (R?), ies * > 2046 : 
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05 13 001 BEQL =:'13 ; ; 
16 9 a CHPE (RP), #22 : 2047, ; 
00000000" EF 4 00 00195 13$:  MOVL #4, BYTES_IN_OPRND $ 2049 ; 
§ p 13¢ 14$: Ist BRANCH_SIZE ; 2050 | : 
52 38 04 if ROVE BRANCH, SIZE, COUNT + 2052 | 
51 52 00000000" EF 1 1A5 15$:  ADDL3. ~- BYTES_IN_OPRND, COUNT, R1 + 2054 : 
5 01 Al : 1AD MOVAB 1(R1)> COUN : : 
OA A 52 90 00181 16$: | MOVB COUNT. 10(POINTER) + 2055 ; 
0B AO 3 20 018 MOVB. ACT_NUM_OPRNDS, 11(POINTER) : 2056 ; 
0c AC CO 001B ADDL2 COUNT, OUT_PC + 205 ; 
08 AE 52 ¢0 001BD ADDL2 COUNT, OUT-BYTE_PTR : 058 ; 
FFSC CD 84 001C1 CLRW OPRND.STG_BESC + 2059 ; 
51 11 001C5 BRB 18$ + 2026 ; 
55 DD OO1C7 17$: | PUSHL 5 + 2068 ; 
Oc AC 9F 001C9 PUSHAB OUT_P + 2066 F 
0110 8F BB 001 ¢¢ PUSHR #*MZR4,RB> + 2067 ; 
18 AE 9F 00100 PUSHAB OUT BYTE P + 2066 ; 
FFSC CD 9F 00103 PUSHAB OPRND STG _DES : ; 
00000000V EF 06 FB 00107 CALLS #6, ERNC_O : ; 
000000006 ff 0 OD BODE MOVL RO, PATSGL_ERRCODE 3 : 
0 50 €8 OO1E BLBS BS : ; 
02 000000006 EF 01 001E8 CMPL § PATSGL_ERRCODE, #2 + 2076 ; 
6C 12 OO1EF BNEQ $ : ; 
64 000000006 EF 04 €1 001F1 BBC #4, PATSGL_CONTEXT+2, 20$ + 2077 : 
FFFFFFFE  8F 66 04 00 FC 001F9 CMPV ss #0. «#4, (RB), #2 : 2078 ; 
9 13 00202 BEQL 2 : ; 
08 BC 08 AE 57 83 90204 SUBB3 R7, OUT_BYTE_PTR, @OUT_BYTE_STREAM : 2081 ; 
5B DD 0020A PUSHL P + 2082 ; 
08 AC DD 0020C PUSHL OUT_BYTE_STREAM : ; 
000000006 EF 9¢ FB 00 OF CALLS #2, PATSSUBST_INS : 
1 11 00 1 BRB 2 > 2084 
FFSC CD 85 00218 18$:  TSTW  OPRND_STG_DESC : 2091 
68 12 0021C BNEQ F 
3 06 0021 INCL  ACT_NUM_OPRNDS : 2095 
FE70 31 002 BRW 3$ : 1966 
FFSC CD B4 02 19$:  CLRW  OPRND_STG_DESC + 2101 
FF60 CD 0C AE 9E 00 MOVAB OPRND“BUF> OPRND_STG_DESC+4 F 2102 
FF64 CD 0200 = 8F 80 022D MOVW #512, OPRND_STG_BESC78 > 210 
7E 01 70 00 mMOVa #1, -(SP > 2104 
FFSC CD 9F 00237 PUSHAB OPRND_STG_DESC : 
FF68 CD OF 0 B PUSHAB INST STG DESC : | 
00000000V_ EF 4 4 F CALLS #4, GET_OPERAND ; 
16 0 £9 00246 LBC ~—Es«aRO,. 218 : 
59 DD 00249 PUSHL OPRNDS > 2107. 
04 AE DD 00248 PUSHL  OPCODE_NAME ; | 
DD 00 4 PUSHL ; | 
00608233 BF DD 00 PUSHL #7176755 ; 
000000006 00 4 FB 00256 CALLS #4, LIBSSIGNAL : 
A 11 00250 20s: BRB $ : 2108 | 
08 BC 08 AE 7 83 O25F 21$:  SUBB3 7, OUT_BYTE_PTR, @OUT_BYTE_STREAM > 2115 | 
3 p7 00 65 DECL  ACT_NUMTOPRNDS : 3128 
FFFFFFFE  8F 66 04 i i 0 : CHPY 4 #4, 7 (RO), #2 : 21 
FC OAD 53 90 00 i$ MOVB § ACT_NUM_OPRNDS, ASD_TBL_ENTRY+8 : 2126 
| 
| 
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09 po 76 PUSHL #9 : 2127 

F4 =AD OOF 7 PUSHAB ASD -78L “ENTRY : 

10 aC DD 00078 PUSHL ee : 

000000006 EF 0 FB 7 CALLS @# “PAISFGLL _BuF : 
0 1 v0 0 85 22%: MOVL #1, RO ; 2136 
50 D4 00289 23s: CLRL =—_- RO + 2137 

04 00288 RET : 


; Routine Size: 652 bytes, Routine Base: _PATSCODE + 0000 


$3 ROUTINE GET_NEXT_TOKEN ( INST_STG_DESC, LEX_BUFFER ) = 

494 'e¢ 

<2? ' Functional Description: 

49 Scan the input stream and extract the next token from it. This routine 
498 is similar to the one that the parser uses - it is just that this one 


does a Little more, and is a Little more selective about what it accepts. 
Calling Sequence: 

GET_NEXT_TOKEN (INST_STG_DESC, LEX_BUFFER) 
Inputs: 


INST_CS_PTR “Contains the address of the current instruction 
counted=string pointer. We pick up and update 
this pointer via this address. 

LEX_BUFFER “A pointer to where we can pass back a value 
which is associated with whatever token we 
discover. If this value is 0, we don't 
try to pass back anything. 


Implicit Inputs: 


PAT$SGL_MOD_PTR = is used by the radix convert routine 
to convert numeric input. 


Outputs: 
None. 
Implicit Outputs: 


Via LEX_BUFFER, we pass back: 
-a counted byte stream in LEX_BUFFER if the token 
is LONG_VAL_TOKEN, WORD_VAL_TOKEN, ABS_LIT_TOKEN, 
or BYTE_VAL_TOKEN. Even though only <Counf> bytes 
of this value are valid as far as operand size is 
concerned, the value is written out as a (sign-extended) 
longword so that we can do arithmetic on it and worry 
about the size only when we want to extract it eget. 
-a REGister number in a i 7A field of LEX_BUFFE 
for REGISTER_TOKEN, INDEXING_TOKEN, or AT_REG_TOKEN. 
- sebyte sequence for BRANCH_TOKEN. The first byte 
of this is 1 => PC-relative type, or 0 => absolute 
type. The wenetasng 4 bytes are the 
lLongword representation of the branch operand. 


> 
PEEL SISO RPO S Sa UeAF UNH SSEUEREONSSS 


Return Value: 


The Literal that stands for the token type we have 
extracted. This is either one of those mentioned 
above, or it is BAD_TOKEN. 


PRoPoRoONoPONoPORONOMONONONONONOPONOPONIPONOPYPODINIPUNONINOPONONO PPO PONOPOPONOPOPOPOROPUNONOPOPononononononononorfry 
ee ee ee ee ee ee Lee Ss 
WOOO O00 000909 09 00 09 0909 09 SIN NIN SI SI NSN NSA AAAAAAAAA INN BB BPEL EEUU 
FUN 30 O@NOUFWD) 0 OONOAUES WD  O ODNAUES WR O OONAUES WNC ODNOU SWI OO0O 
PN ek a hs te a hs ss bs ss 2 as ss as ss 9 — 2s —s —s 8s 5 2s 9 —s 5 2 9 5 2s sp 2s 5 9 2 ss a ns 


Be Se Se Oe Be Be Be Se Se Se Se Se Se Se Be Se Be Se Ge Ge Se Ge Se Se Se Se Ge Ge Gs Se Se FF Se Be Se Se Se Se Se Se Se SH Se Se Se Se Se Sees Gs Ge FHSe Se Se Geese 


ww wee eee eee ee ee eel ea eal eal ea beah slush ad esha heal eal al eal eal ealeal eal ea eles ea ele wal wales el eal eal eal wa! 
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Be Be Se Oe Oe Be Se Se Se Be Se SH SH Se Se Gs Se Se Se SH Se Se Se Se Se Se Se Se Ge Ge ae Se Se GH Se Ge Se Se Se Se Se Se Se SH Se Se se Se Se Seas Se Se Se Seasas 


v 
= 
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3 12 
16-Se 
14-Se 


leo 


mm 


-1984 00:40:15 VAX-11 Bliss-32 V4 4 
eats ri 90:29:13 DISKSVMSMASTER: CPA SRCIJPATENC.B32; 


: 549 195 

3 ; 0 138 MAP 

3 1 19 INST_STG_DESC : REF tae C grre2. 

: 236 198 LEX.BUFFER : REF VECTORC BYTE); 

: 54 00 2 LOCAL 

3 5 01 LEX_STG DESC : BLOCK ple. BYTE], ! Lexeme string descriptor 
; 556 O¢ TOKEN_BOFFER : ¥ECTOR CHS_PER_LEXEME+1, BYTE J, 

: 557 0 GARBAGE : VECTOR CHS _PER CEXERE, BYTE j, 

; 58 04 INST_CS : REF VECTORC BYTEI, 

; 559 05 REG_RuM, 

; 200 06 MODE 

; 561 07 RETURN_PTR, 

3 206 08 TOKEN_TYPE : BYTE; ! The returned value. 
8 8 & macro 

; 565 M 2011 PASS_BACK( BYTES, VALUE ) = ! Used to pass back the indicated 
; 566 \¢ (.RETURN_PTR)<O,BYTES*BITS_PER_BYTE> = VALUE %; ! number of bytes, if requested. 
; re 2 ie 1+ 

: 569 2215 i If a value is associated with the token extracted, this value is returned via 
; 570 $18 ! the pointer, LEX_BUFFER. If, however, this pointer is 0, then the caller does 
; 571 17 i not want such information. fo avoid having to check this several times, then, 
3 276 $18 ! a local pointer, RETURN_PTR, is used to point either to where the user wants 

3 He Hh ; the value, or to some local garbage location. 

: 575 321 if ((RETURN_PTR = .LEX_BUFFER) EQL 0) 

: 576 $8 TH 

3 ae $557 RETURN_PTR = GARBAGE; 

: 579 3295 1+4 é 

; 280 $558 Pick up the current instruction counted-string pointer. 

: 582 2298 LEX_STG_DESC CDSC$W_LENGTH) = 0; 

; 583 309 LEX=STG-DESC LOSCSA-POINTER] = TOKEN_BUFFER; 

; 286 32 9 LEX=STG-DESC CDSS$W7MAXLEN] = CHS_PER_LEXEME + 1; 

: 586 2082 les 

s 3 Hh 2034 Extract the next token sia take the appropriate action. 

: 589 235 2 TOKEN_TYPE = MAR_GET_LEX(.INST_STG_DESC, LEX_STG_DESC); 

a. ae 

: 236 38 i Sometimes a keyword token is returned when the user 

; aa7 4 : really input a symbolic name of some sort. 

: 296 yk if (.TOKEN_TYPE GTR 0) AND (.TOKEN_TYPE LEQ KEYWORD_RANGE) 

; 596 $5 THEN 

; 597 4 TOKEN_TYPE = ALPHA_STR_TOKEN; 

: 238 rf TOKEN_TYPE = T SELECTONE .TOKER_TYPE OF 

; 600 46 SET 

; 608 48 CHASH_TOKEN]: =! "#" 

: 604 50 i Extract the Literal and pass it back. 

; 605 51 len 


P 
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79 
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; 608 ¢ 4 IF (MAR_GET_LEX(.INST_STG_DESC, LEX_STG_DESC) NEQ DIGIT_STR_TOKEN) 
; 60 THEN 
3 ¢ 4 BAD_TOKEN 
3; © 5 ELSE 
; 610 § 4 EGIN 
; 611 4 PASS iter A ae LENGTH, .(.LEX_STG_DESC CDSCSA_POINTER])); 
; 61 8 4 eS TIT 
: 618 END 
; 614 60 
; 615 61 
3 o1$ o¢ CAT_SIGN_TOKEN, ! ‘@', For a#const, a(reg), and adispl (reg) 
; 61 6 PLOS_TOREN, i "+"! for (reg)+ 
; 618 64 MINUS. TOKEN, i '="* For =(sp) Etc, 
; 619 65 COMMA” TOK i *.*) For argl, arge, tc. 
3 ? EOL_ TOKEN | J: i CF. Terminates the B= Line. 
; ° ¢ oe i. "heat return the token type directly. 
; 624 70 “TOKEN_TYPE; 
> 625 71 
; 626 i 
; 627 7 CDIGIT_STR_TOKEN, ! For branch operands where we interpret 
; 628 74 ! the operand as an absolute oseress. 
3 o¢3 75 PERIOD_TOKEN): ! We also handle operands of the 
3; 6 $78 ! form '.' <si - <number>, where 
; 631 77 ! <sign> must "eo" or “o*, 
; $34 $578 
3 63 279 4 BEGIN 
> 634 2280 4 LOCAL 
; 635 sso) 4 BR_FLAG, NUMBER, SIGN; 
; 636 see 4 
; 637 2285 4 e+ 
; 638 2284 4&4 i In this case we build a token string consisting of a flag byte 
; 639 +H 4 ! followed by the branch operand in a longword. Assume 
; 640 86 4 i PC-relative type branching. 
3: 641 287 4 oo 
3 oe 43 4 BR_FLAG = 1; 
; 64 289 4 
; 644 2290 4 1++ 
; 645 2291 4 ! Handling the more-difficult syntax requires more work. 
; 646 $36 4 aed 
3 647 293 4 SIGN = 0; 
3 648 294 5 IF (.TOKEN_TYPE EQL PERIOD_ TOKEN) 
; 649 95 4 THEN 
; 650 38 : BEGIN 
3; 651 9 BR piae 0; 
3 $36 98 6 SIGN = 
; 65 99 ° CF (CTOKEN_TYPE = MAR_GET_LEX(.INST_STG_DESC, LEX_STG_DESC) 
: 654 00 ) EQL PLUS_TOKENY 
; 655 01 6 THEN 
3 238 § 6 
3; 65 § ELSE 
; 658 04 IF (.TOKEN_TYPE EQL MINUS_TOKEN ) 
3; 659 05 6 THEN 
; 660 06 6 
; 661 0 § ELSE 
5 2 08 RETURN(BAD_ TOKEN) 


v | 
Pd 
al 
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; 663 ); 

> 664 

; 665 4+ | 
$ 606 : _After the <sign>, a <number> is expected. | 
; oo 5 if (MAR_GET_LEX(. INST_STG_DESC, LEX_STG_DESC) NEQ DIGIT_STR_TOKEN) 
: 6% RETURN(BAD_TOKEN) ; | 
; 671 4 END; 

; ore 4 

; 67 4 '++ 
; ore ? iP Pass back the flag and operand. 
; 676 4 NUMBER ote LEX. $76. DESC CDOSCSA_POINTER)); 

3; Of7 5 IF (. SIGN’ EQL ' 

; 678 4 THEN 

3; ory 4 NUMBER gue 

; 680 & PASS BACK (BYTE LENGTH -BR_FLAG); 

; 681 4 RETURN_PTR = .RETURN PTR + “BYTE _LENGTH; | 
; oes 4 PASS BACK (LONG *EENGTR. «number )> 

; 683 4 BRANTH_TOKEN ! Pass back the token type | 
; 685 

; 686 

; 687 CALPHA_STR_TOKEN): : For now, this must be a register reference, F 

; 688 ! or a displacement indicator (‘B", ‘WwW’, "L’’ or “‘I''). 

> 689 4 BEGIN | 
; 690 4 LOCAL | 
; 691 4 LEXEME_PTR, | 
g “ 
; 694 4 LEXEME_PTR = CHSPTR (.LEX_STG_DESC CDSCSA_POINTER)); | 
; 695 & a P . “CHSRCHAR (. LEXEME_PTR); 

; 696 5 IF (CREG_NUM = PAT TSREG MATCH (LEX. STG_DESC)) GEQ 0) | 
; 697 4 THEN 

; 698 5 BEGIN ; , 

; 699 5 PASS_BACK(BYTE_LENGTH, .REG_NUM); ! Return the number of this register. 

3 £90 g IF ([REG_NUM LEQ MAX_REG) 
; 
; we 5 REGISTER_TOKEN ! Valid register number 

; 70 5 ELSE F : 

3 ope 2 : BAD_TOKEN ! Invalid register number | 
3: 706 5 ELSE IF (.LEX_STG_DESC COSC$W_LENGTH] NEQ 1) 
; 707 4 THEN 

: 708 6 BAD_TOKEN ! Error. The erring, must be only 1 cuabogter long. | 
3; 709 5 ELSE IF (.CRAR NEQ 'B") AND (.CHAR NEQ "w') AND (.CHAR NEQ *) AND (.CHAR NEQ ‘I') 
; 710 4 THEN 
s 771i 4 'e¢ 
; ars 4 i The string must be one of the valid | 
: nz : id displacement CHARacters only. 
Py | 
: 715 4 BAD_ TOKEN 

He | 
5 a4 ? fist IF (MAR_GET_LEX(.INST_STG_DESC, LEX_STG_DESC) NEQ UP_ARROW_TOKEN) 


’ 
| 
} 
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; 66 4 le4 | 

; 9 ? is <Size> must be followed by '** to produce <size indicator>. 

; 5 4 BAD_ TOKEN | 

3 0 4 ELSE | 

3 71 & lee 

; ts 4 Extract the following number and pass it back. 

3 73 4 ! \This is where we would Like to switch grammars 

; 74 & ! to take advantage of what PATCH already 

; fe 2 } knows about expression evaluation\. 

; rt ; BEGIN 

: 7 i* we are dealing with an immediate mode operand specified by the I* notation 

3 80 i outs to enforce the assembler syntax of the I*#<number or absolute express iene 

: + notation (for consistency). 

: 58 iF (CHAR EQL ‘I") THEN 

; 85 ‘ IF (MAR_GET_LEX(.INST_STG_DESC, LEX_STG_DESC) NEQ HASH_TOKEN) 

3 $08 6 THEN ' 

3 38s ° it The following token must be #, if we are using I*. 

: 90 : et RETURN(BAD_ TOKEN); 

; ; 5 coun GET_LEX(.INST_STG_DESC, LEX_STG_DESC) NEQ DIGIT_STR_TOKEN) 

; 94 rr 

: He 5 The following token must be <number>. 

; 33 2 BAD_TOKEN 

3 98 5 ELSE 

3 399 6 BEGIN 

3 400 6 

; rt't ? iS “bes what displacement mode was requested. 

: 40 6 MODE 

: 404 IF (. CHak EQL 'B') 

3 405 6 THEN 

3 406 6 MODE = BYTE_LENGTH; 

; 407 7 IF (.CHAR EQL ‘W') 

3 408 6 THEN 

; 409 § MODE = uy LENGTH; 

3 410 if (.CHAR EQL ‘L") 

e 411 6 THEN | 

; tig ) ODE = LONG. LENGTH; 

3 41 HY c. CHAR EQL ‘I') ' Immediate Mode operands must be ha 

3 414 § THEN peretesrenns mode, with PC used 3 

; 415 BEGIN This ecial case of the # Li 

3 rt 7 PASS _BACK(LONG_LENGTH, .(.LEX S16. Dest tbstshe POINTER) 

: 417 7 RETURN (ABS_LIT_TOKENS; ("Special Han dling i s called for, re 

3 rt § END; ' for processing this type of immedi 

3 41 IF (.MODE EQL 0) | 

3 420 6 THEN | 

3 421 6 RETURN(BAD_TOKEN) ; 

3 422 6 | 
| 


a TTT eee 


a —4 


vous 1b 3eo-19Re 93: 39: 3 bis KSVMGMA SfenscPaicn. SRCIPATENC. 832: 79 ea | 


~%M 


"This case looks for an ‘at regteser reference or an indexing 


| 

| 
: 777 423 6 + | :] 
; 78 4o4 6 i Return the number as a counted byte stream. ; 1 
; 77 405 i The <number> part of it is passed back as a : 1 
3; 7 4 $ 6 i s ignoextended Longword so that it can be :] 
: g 1 4 : i checked for truncation. 3 
3 7 g 4 : 6 PASS BACK (BYTE ak ENGTH .MODE) | i 1 
ae 430 6 RETURN PTR = .RETURN PTR + BYTE 21 
; 785 431 6 PASS BACK (LONG EENGTR, o (LEX, S16. Dest. * CDSCSA POINTER))); | 37 
3 ’ ‘ ; 6 VAL L_TOKEN + .MODE '“Return the token type. : : 
3 788 434 END 3 
. 435 END; 3 7 
; 790 4 § 3 7 
; 791 4 3 7 
; 79 4 § COP_PAREN_ TOKEN, ' ( reg ), ETC 7] 
: 79 4 LSGUARE 7 JOKENJ: i £ reg J; for INDEXing mode. 3 7 
3 794 440 3 7 
; 795 441 | 37 
; 796 4G i mode indicator. h reason w y they are lumped together is 3 7 
; 797 44 i simply due their simi he REE he two tokens are in no 3 1 
; 798 444 i other way related. sine REGister number is passed back in the 3 1 
F jo ree it Ist byte of LEX_BUF 3 f 
; 801 447 4 if (MAR_GET_LEX(.INST_STG_DESC, LEX_STG_DESC) NEQ ALPHA_STR_TOKEN) ; \ 
3 a0? meh} ; guse BAD_TOKEN ! No parens or brackets around register , : 
; 805 431 4 TF (CREG_NUM = PATSREG_MATCH(LEX_STG_DESC)) LSS 0) : ! 
:; 807 45 BAD_TOKEN ! Invalid register name 37 
; 808 454 ELSE 3; 1 
; 809 455 '++ 3 
; 19 rt; : Make sure that the register is not PSL : : 
: aig 458 4 IF (.REG_NUM GTR MAX_REG) 3 7 
$ 3 459 THEN 3 7 
: 14 460 BAD_TOKEN 3 
3 15 461 ELSE 3 7 
; 18 462 4 BEGIN 31 
; 81 463 4 ; :1 
3 18 464 4 “The next token must be a Fg gen J parenthesis $1 
: 4 $09 ‘ io or square bracket. If it is error. ‘ } 
; 3 46 ; if (MAR _GET_LEX(. INST_STG_DESC, LEX STG_DESC) 31 
: Be 468 NEQ™( IF (.TOKEN_TYPE-EQL OP_PAREN_TOKEN) : 1 
3; 824 470 6 CL_PAREN_TOKEN 3 1 
; 825 471 6 ELS 37 
3 : § rh g RSQUARE _TOKEN | $s 
: 47 ») 31 
; 828 474 4 THEN 3 1 
> 829 475 4 BAD_TOKEN 31 
: rf 4 ELSE 3 1 
: 1 47 BEGIN 3 1 
: 3 478 31 
; 83 47 "The operand was complete. Return the 24 
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: ¢ rs ° } number and token type. 

; : ¢ PASS_BACK(BYTE_LENGTH, .REG_NUM); 

; 484 IF (.TOKEN_TYPE EQL OP_PAREN_TOKEN) 
3 485 THEN 

3 0 4 $ AT_REG_TOKEN 

g 1 & ELSE 

$ tg 488 '++ 

: Z : 9 } You can’t index off the PC 
5 45 491 IF (.REG_NUM EQL PC_REG) 

s $ 138 THEN 

3 49 BAD_ TOKEN 

: Bes t9s ELSE INDEXING. TOKEN 

; 850 496 END ¥ 

; 851 497 END; 

3 HY 498 

; 85 499 

; 854 500 COTHERWISE): ' ERROR. 

; 855 501 ! Unrecognized token. Terminate the encoding. 
; e28 20¢ BAD_TOKEN; 

; 85 50 

; 858 504 TES); 

; 859 505 

; 860 208 '+¢ 

; 861 50 ! Update the counted string pointer which is being maintained elsewhere. 

3 rg) 308 ! The returned value is whatever was arrived at in the above CASE statement. 
; 864 510 5 RETURN (.TOKEN_TYPE); 

; 865 511 1 END; 


O1FC 00000 GET_NEXT_TOKEN: 
«WORD 


wove X_BUFFER, RETURN_PTR 


GARBAGE, RETURN_PTR 
LEX STG. DESC 

TOKEN BOFFER, LEX STG_DESC+4 
#26, CEX_STG.DESC?8 
LEX’STG_BESC 

INST_STG_DESC, R4 


#2, MAR _GET LEX 
no: TOKEN_TYPE 

TOKEN_TYPE, #49 
#71, TOKEN_TYPE 


Save R2,R3,R4,R5,R6,R7,R8 
58 000000006 EF 9€ 9002 MOVAB PATSREG.MATCH, R68 
57 00000000v EF 9E MOVAB R_GET“LEX, R 
5E BC AE 9 MOVAB -68TSP)> SP 
56 aC 
0 
6E 


CIPATENC.B3201°" (4 


2138 


2221 


3 
9 
0 


8 


2241 


2243 


3 
) 


a a a a ee ee ee ee LLL) 


~~} 
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PATEN 16-Sep-1984 00:4 VAX-11 Bliss-32 V4.0-742 
y04-060 12: set 7 99: $9: }3 DISKSVMSMASTER: CPATCH. SRCJPATENC.B32; Pyee rr} 
43 8F 52 91 00043 28: CMPB =: TOKEN_TYPE, #67 3 2248 
1E 12 t3 BNEQ 4$ ; 
38 AE 9F 00049 PUSHAB LEX_STG_DESC + 2252 
? PP R0cE Chics #2. MAR GET_LEX ; 
00000048 +t i CHPL no: sai : 
01D ; A BRW és : 
6 3c —s«BE po 5D 3S: MOVL : EX_STG_DESC+4, (RETURN_PTR) + 2257 
0 Fa BF 9A ‘ MOV ZBL ’ #248; RO : 358 
3D 9 p 6 4$ CMPB = TOKEN_TYPE, #61 + 226 
1 A BEQL 5$ ; 
41 8F 5 4 0 $ CMPB © TOKEN_TYPE, #65 : 
12 13 000 BEQL «=séSS$ ; 
46 BF 52 91 0007 CMPB  =-« TOKEN_TYPE, #70 : 
O¢ 13 0076 BEQL «=s«S$ ; 
4C OS 91 0007 CMPB = TOKEN_TYPE, #76 F 
Q 13 0007¢ BEQL 46=sS5$ : 
63 BF 91 O07 CMPB  =—« TOKEN_TYPE, #99 ; 
0 12 000 BNEQ 7$ ; 
50 é 9A 00084 5$ MOVZBL TOKEN_TYPE, RO : 2270 
; 11 00087 68: BRB 14$ : 
48 8F > 91 00089 7$: CMPB  =-« TOKEN_TYPE, #72 + 2273 
06 13 0008D BEQL © 8$ F 
48 8F 52 91 O008F CMPB = TOKEN_TYPE, #75 : 
58 if 0093 BNEQ 15$ : 
55 01 00 00095 8s MOVL #1, BR_FLAG : 2288 
53 D4 00098 CLRL ‘SIGN + 2293 
4B BF 3 91 0009A CMPB = TOKEN_TYPE, #75 + 229% 
38 12 0009E BNEQ 12$ F 
55 D4 OO0A0 CLRL —« BR_FLAG : 2297 
38 AE OOF O00A2 PUSHAB LER. STG. DESC : 2299 
54 DD OOOA PUSHL : 
67 02 FB OOA7 CALLS *, MAR_G F 
52 90 OOOAA MOVB RO, TOKEN TybE. 3 
0000004c BF 30 D1 OAD cMPL RO, #76 : 2300 
53 28 6 00B6 MOVL #43, SIGN + 2299 
9 11 00089 BRB 108 F 
46 BF 3 91 00088 9$: CMPB = TOKEN_TYPE, #70 > 2304 
1 if OOBF BNEQ : 
53 20 p 00C1 MOVL #45, SIGN : 
38 AE F 0 C4 10$:  PUSHAB LEX_ST6_DESC > 2314 
54 DD 000C PUSHL R ; 
67 g Fe 0c9 CALLS #2, MAR_GET_LEX : 
00000048  8F D o¢ CMPL RO, #72 : 
03 1300003 118:  BEQL 12$ : 
00E5 31 000D BRW 27$ ; 
50 3¢ DO 000D8 128: MOVL $ @LEX_STG_DESC+4, NUMBER : 3332 
20 D4 DC CMPL : GN: “45 ; 
2 000DF BNEO ; 
50 § £1 MNEGL > 2325 
86 E4 138: MOVB BF aa URW, PTR)+ 3 6 
$6 0 p £7 MOVL ABER, _PTR) > 2328 
F4 BF 9A OOOEA MOV ZBL 4, 3 2209 
7 11 OQOOEE 148 BRB ; 


<v 


> 
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PATEN 18-5¢ -1984 00:40: VAX-11 Bliss-32 V4.0-742 Page 25) PAT 
y04~000 1 ~300 71382 99:29:43 DISKSVMSMASTER: LPATCH. SRCIPATENC.B32:1° B v04 
47 BF 9 FO 15$: CMPB ss TOKEN_TYPE, #71 3 2333 31 
ce a a ! . 
50 3¢ AE pO f§ 16$: MOVL LEX _STG_DESC+4, LEXEME_PTR : — 3; 3 
60 9A OO0F MOVZBL (LEREME-PTR), CHAR + 2341 31 
38 AF 9F 001 PUSHAB LEX STG DESC + 2342 31 
68 9 F 1 CALLS #1, PATSREG_MATCH : 31 
mit mes Hay een : : 
bb 90 00108 MOVB = REG_NUM, (RETURN_PTR) > 2345 31 
OF pi 105 cw 8 G-NUM, ; 2346 sf 
50 fF? «SF 9 M3 MOVZBL #247, RO : 31 
O11E 31 00117 17$ BRW 37$ : 31 
01 38 a } giyh 18$ ey LEx_STG_DESC, #1 3 2352 : ! 
00000042 = &F 55 D1 8} 6 CMPL CHAR, #66 + 2355 .7 
18 13 001 BEQL 19$ : 31 
00000057 = &F 55 Di 00129 CMPL CHAR, #87 : 31 
le 13 00130 BEQL 19$ F 31 
0000004c BF 55 1 001 H CMPL CHAR, #76 : 31 
09 13 001 BEQL 19$ : 31 
00000049 8F 5 pi 001 ; CMPL CHAR, #73 : 31 
41 12 Oo14 BNEQ 22$ ; 31 
38 AE 9F 00144 19$:  PUSHAB LEX_STG_DESC + 2364 31 
54 DD 00147 PUSHL 4 ; 1 
67 02 FB 00149 CALLS #2, MAR_GET_LEX ; .% 
00000053 = BF D1 0014¢ CMPL = RO, #83 ; 31 
03 13 9019 BEQL g0$ ; 31 
008¢ 37 00155 BRW 0$ ; 31 
53 D4 00158 208: CLRL ss R33 : 2383 : 1 
00000049 8F 55 «(D1 O015A CMPL CHAR, #73 ; : 1 
13 12 00161 BNEQ 21$ ; 2% 
53 D6 00163 INCL RB ; 31 
38 AE OS 00165 PUSHAB LEX_STG_DESC : 2385 31 
54 DD 00168 PUSHL ; 31 
67 g FB OO16A CALLS #2, MAR_GET_LEX ; 51 
00000043 = &F ; oy O19 cnet . #67 3 2 
38 «AE OOF 0176 21$:  PUSHAB LEX_STG_DESC : 2392 31 
54 DD 0017 PUSHL 4 ; : 1 
67 02 FB 00178 CALLS #2, MAR_GET_LEX ; 31 
00000048 BF 50 pi 0017 CMPL = RO, #72 : 31 
64 12 00185 22$:  BNEG 328 : 31 
0 v4 001 CLRL MODE : 2403 31 
00000042 = 8F 55 01 00189 CMPL CHAR, #66 + 2404 31 
03 iF 1 BNEG 2 : 31 
50 1 dO 0019 MOVL #1, MOD : 240 31 
00000057 =F D1 00195 238: CMPL cHAR, #87 : 240 31 
if 19¢ BNEQ 4$ : :1 
50 dO 001 MOVL #2, MOD ; 3409 31 
0000004c BF D1 OO1A1 248 CMPL SHAR. #76 + 2410 31 
1 1A8 BNEQ 5$ ; $1 
39 3 £9 OOIAD 258: BBE RB Dose : $t18 i. 
66 3¢ BE bo 180 MOVL al EX _STG_DESC+4, (RETURN_PTR) > 2416 :1 
F8 8F 9A 001B4 MOVZBL #2487 RO : 2417 31 


— 
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1 p-1984 9 PAT 

1 p-1984 12: DISKSVMSMASTER: CPATCH. SRCIJPATENC.B32; v04 

04 1B8 RET ; 31 

30 D3 189 268: TSTL DE + 2419 .% 

1BB BNEQ 28$ : . 

50 F9—saBF 9A 18D 278: MOVZBL & #249, RO + 2421 : : 
RG 50 $3 cg 288: MOVB MODE, (RETURN_PTR) t 2429 31 
66 3c. Cw p 1¢ MOVL LEX, s16. DESCT4, (RETURN. PTR) + 2431 31 
OOF1 ¢ F 1C9 MOVAB + 2432 : 1 

: 1 Ice BRB + 234 71 

45 BF 91 00100 29$ CMPB  TOKEN_TYPE, #69 + 243 31 
13 00104 BEQL : 3 1 

49 ~=«BF 9 106 CMPB TOKEN. TYPE, #73 : 31 
1 1DA 30§: BNEQ : 31 

38 AE OF 0010C 31S: PUSHAB LEX_STG_DESC + 2447 31 

54 DD 001DF PUSHL : 31 

67 98 FB OO1E1 CALLS We, MAR_GET_LEX : 31 
00000047 =8F D1 OO1E4 CMPL #71 : 31 
47 12 OO1EB 328: BNEQ Re : 31 

38 AE 9F OO1ED PUSHAB LEX.s ESC + 2451 31 

ra: 1 FB OO1FO CALLS parses _MATCH : 31 
53 0 DO OO1F MOVL a0" 3 31 
19 O1F6 BLSS 36 ; 31 

OF 3 D1 OOtE CMPL a6 NUM, #15 : 2458 31 
14 001FB BGTR 36$ : 31 

38 AE 9F OO1FD PUSHAB LEX_STG_DESC : 2467 3:1 

54 DD 00 9 PUSHL ; 31 

67 02 FB 00 CALLS #2, MAR_GET_LEX 3 S| 
54 D4 0020 CLAL + 2468 :1 

49 ~—oBF 52 91 00207 CMPB = TOKEN_TYPE, #73 ; 31 
Q 12 99 0B BNEQ 33$ ; 31 

4 D6 0020D INCL RG ; :1 

51 3F DO 0020F MOVL #63, R1 : 31 
04 11 00 1 BRB 4$ : :1 

51 50 8F 9A 00214 33$: MOVZBL #80, R1 ; s 1 
51 30 D1 00218 34$: CMPL RO, R1 ; 31 
17 12 00218 BNEQ 36 ; 31 

6s 53 90 0021D MOVB REG NUM. (RETURN_PTR) + 2482 31 
06 54 E9 0 BLBC > 2484 31 
50 F6 «BF sO9A 00 MOVZBL ; 346° RO ; 31 
OF 11 00 BRB : 31 

OF 3 D1 00229 358: CMPL §REG_NUM, #15 > 2491 31 
06 13 002eCc BEQL 36$ : 31 

50 8F 9A 00 MOVZBL #240, RO ; 31 
e 11 9 BRB + 2447 31 

50 F9 «BF OA 368: MOVZBL : 2500 1 
32 0 90 00 38 7$: MOVB 48 MOEN TYPE : gh 31 
5 52 9A 6 B MOVZBL TOKEN_TYPE, RO : 2510 31 
04 0023 RET > 2511 ; 

; Routine Size: 575 bytes, Routine Base: _PATSCODE + 028C : 
: 

3 | 

s | 

= | 

s | 

$1 


Implicit Outputs: 


The instruction string descriptor is updated to exclude the label and 
colon. The symbol is entered into the user defined symbol table. 


Returned Value: 
none 


909 


INST_STG_DESC : REF BLOCK C, BYTE); 
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PATE 16-Sep-1984 00:40: VAX-11 Bliss-32 V4.0-742 Page 27 
y0ue000 12-88-1382 99799:43 DISKSVMSMASTER: LPATCH. SRCIPATENC.B32: 1° (3 | 
: S67 ! ROUTINE GET_LABEL ( INST_STG_DESC, OUT_PC, DEFINE_FLAG ) : NOVALUE = | 
869 1 les 
af : Functional Description: 
1) 1 i Scan the supposed instruction bie to see if it has a label. 
87 1 ! If there is a label, then extract it and the fol Lourng colon and 
874 1 ; update the instruction str ng descriptor, INST_STG_DESC. Then 
875 : enter the label as an user defined symbol with a value equal to the 
378 current PC. 
878 ; Calling Sequence: 
tt} GET_LABEL (INST_STG_DESC, OUT_PC, DEF INE_FLAG) 
eS Inputs: 
884 i INST_STG_DESC <A pointer to the counted string which contains 
885 ! the instruction string we are pprking on. 
886 : OUT_PC “PC at which the instruction will reside 
887 3 ! DEF INE_FLAG “Indicator if the label should be entered into the 
aoe ; } user's symbol table. TRUE=enter it; FALSE=don't enter it 
890 3 i Implicit Inputs: 
891 3 ‘ 
89 3 ! 
3 ! 
3 ' Outputs: 
4 t 
4 : none 
4 ‘ 
4 ‘ 
4 ‘ 
& : 
4 ‘ 
4 : 
4 : 
4 : 
5 ! 
5 ! 
5 : 
5 
5 
5 
5 
5 
5 
5 


' Next character in instruction string 


oo 


CHAR, 
TOKEN_ TYPE ! Type of token foun 


| 
| 
| 


ee ee et et od ot 


1 

1 
INS_PTR : REF VECTORC BYTE], i Pointer to first byte of instruction | 
INS_DESC : BLOCKTS.ByTE ' Local copy of instruction string descripto | 
LABEL_DESC : BLOCK’C12, BYTE) i String descriptor for current token 
LABEL_BUF : VECTORE CHS_PER_LEXEME, BYTE); ! Buffer to hold label string 


ee ee ee ee ee ee ee ee a ae ee lS 


Morn 
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re re Pe Pe ee ee Pe eee eee eee Tere eee Tee Tee rere rerererere rere lelerererereierere re rerelereete 
00000 
wovono 
wis 
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SUS AP SS See FN OOO NOME WO DO0 SOU UMNO DO9 MOr UN UMP DOO OR ir 
POPSPEPONePOPINIPNINININININD OO Oe Oe oe a ed ed ed ed 6 ed od = 2 
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~ 
AOD 


| 
| 
_- ; | 
! Initialize the local instruction string descriptor. This routine uses 

| 


i 


1h-se -1984 00:40:15 VAX-11 Bliss<-32 V4.0-742 8) 
14- ets 7 99:99:43 DI SKSVMSHAS TERS CPATCH.SRCIPATENC. B3264 oe 98 
; 9246 4 ! its own copy in case there is no Label on the instruction. Also initialize | 
; 3 5 i if the Label string descriptor. 
; 9 $ a iNS DESC post su. LENGTH] = .INST_STG_DESCCDSC$W_LENGTH; 
; 928 7 INS-DESC CDSCSA-PO INTER] = {NST STG_DESCCD BSCSKe POINTER; 
; 929 574 LABEL _DESC becSu. LEN 
: 930 575 LABEL -DESC DSCSA-POINTER = ABEL BUF ; 
; 931 276 LABEL-DESC [DSC$W-MAXLEN chs PER _LEXEME: 
: 9 é 57 TOKEN-TYPE = MAR_GET *TEX( NS DESC. CABEL DESC); 
; 4 ? 278 TF (CCTOKEN, TYPE“NEQ"ALPHA_STR_TOKEN) AND (.TOKEN_TYPE NEQ DIGIT_STR_TOKEN)) | 
; 935 380 RETU ! No Label 
; : 2 1 Ins. PTR = LHEPERC. INS_DESCCDSCSA_POINTERI, 0); | 
; 334 388 CHAR = CHSRCHAR_A(INS_PTR) | 
; 939 584 UNTIL (C <CHaR NEQY *)"AND (ZCHAR NEQU ' ")); 
; 940 2585 IF (. CHAR NEQU 
> 941 5268 THE 
: 94 587 RETURN; ' No Label 
: 94 2288 
: 944 589 ++ 
3 $2 S290 iN Now update the return instruction descriptor. 
3; 947 3392 inST_ STG_DESCCDSC$W_LENGTH] = - INST $16. =DESCCDSC$W_LENGTH] - (.INS_PTR - .INST_STG_DESCCDSCS$A_POINTER); 
; 948 59 INST_STG_DESCCDSC$A_POINTER] = 
oe 949 594 | 
; 950 595 2 I++ | 
3 32) $298 uN Now define the Label as an user symbol with a value of the current PC. | 
; 95 2598 5 ea PATSDEF INE _SYM(LABEL_DESC, .OUT_PC, FALSE); | 
: 954 2599 RETU 
: 955 2600 1 
| 
0004 90000 GET_LABEL: | 
-WORD Save R2 3: 2512 | 
5E 30 c2 0000 SUBL2 #48, SP 3 
52 04 AC 00 0000 MOVL INST_STG_DESC, R2 F 2572 | 
28 «AE 62 BO 00009 MOVW  (R2)> INS DESC : 
2c OA 04 A2 00 0000 MOVL  4(R25, INS_DESC+4 ; 2573 | 
iC «AE Ba 901 CLRW LABEL_DESC ; 3378 | 
20 «AE 6 F 1 MOVAB LABELBUF, LABEL_DESC+4 : 2575 | 
24 «OA 1 8 0019 MOVW #25, CABEL_DESC+8 : 2576 
1¢ AE 9F 0001D PUSHAB LABEL eDESC : 2577 
2C AE 9F 000 9 PUSHAB : 
00000000V_ EF 08 FB 000 CALLS Ae “PRR cet LEX : | 
0000004 F 9 bt ap A CMPL TOKEN_TYPE,~#71 ; 2578) 
00000048 30 D1 00033 CMPL § TOKEN_TYPE, #72 ; 
1 if OO3A BNEQ 3$ ; 
2c «(AE OD 9 1$ MOV INS DESC +4, INS_PTR : 3381 
1 9A 00040 2$ MOVZBL (INS_P CHAR : 2583 
0 D1 0004 CMPL CHART & a2 >; 2584 | 
F8 13 00046 BEQL 2s ; 


oe oe a ee ne ii ee 
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1 
1 
ROUTINE GET_OPCODE ( INST_STG_DESC, F_OUT_BYTE_PTR, OPINFO_PTR, OUT_PC ) = 


'4¢ | 
Functional Description: 


Scan the supposed instruction string to extract the opcode from it. 
Calling Sequence: | 
GET_OPCODE CINST_STG_DESC, F_OUT_BYTE_PTR, OPINFO_PTR, OUT_PC) 
Inputs: 


INST_STG_DESC <A pointer to the counted string which contains 
the instruction string we are work 'ne on. 
F_OUT_BYTE_PTR =A pointer to where we should stuff the 
opcode if we find a valid one. 
OPINFO_PTR -A pointer to where we should stuff the address 
of the OPINFO record which we find as a match ; 
to the opcode we extract from the instruction string. 
OUT_PC “A pointer to a loc that is bumped for each byte 
placed in the instruction stream. 


608 


So 


USWN—O”0 


Implicit Inputs: 
The OPINFO data structure which is described in PATINS.B32 
Outputs: 


Implicit Outputs: 
None. 


| 
None other than via the parameters given above. | 
| 
Returned Value: 

| 
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994 A pointer to a counted string (built by this routine) which is the 

99 name of the opcode. If the opcode is invalid, an error message is 

p44 SIGNALed and there is no return. 

99 = 

998 

Say BEGIN 

1000 64 

1001 645 MAP ? ; : 

1002 2646 OPINFO_PTR : REF VECTORE ned, ! Pointer into the OPINFO table 

1008 2647 OUT PC~: REF VECTORL,LONG 

1 648 F OOT BYTE PTR : REF VECTORL BYTE. 
1005 649 INST_STG_DESC : REF BLOCK C,BYTE); | 
1006 650 

1007 651 BIND 
1008 636 OPINFO_RECORD = .OPINFO_PTR : REF BLOCKCOPTSIZE,BYTE), 
1009 65 OUT_BYTE_PTR = .F_OUT_BYTE_PTR : REF VECTOR; 
1010 654 
1011 655 2 OWN | 
Hat $036 OPCODE_NAME : VECTORC8,BYTE); ' Buffer to hold opcode string 
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PATEN 1h-se -1984 40:15 VAX-11 Bliss-32 V4.0-742 Page 31) 
vou=000 Ve-8ep-1984 12:52:52 DISKSVMGMASTERSCPATCH. SRCIPATENC.B32¢3%° (a) 

| 
: 10146 6 LOCAL : | 
: isis $38 TOKEN_ TYPE, : | 
; 1018 660 P ! Numeric Opcode. : 1 
> 101 661 OPCO_STG_DESC : BLOCK (12, BYTE], | | 
; 1018 66 USER-OPCODE : VECTORC CHS_PER_LEXEME, BYTE); | 2 | 
; 1020 664 ++ ; | 
3 19 1 O32 Make sure that the first token is a potential opcode. : 
1058 667 2 OPCO_STG_DESC [DSCSW_LENGTH] = 0; | : 
: 1026 668 OPCO_STG_DESC [DSCSA_POINTER] = USER_OPCODE; : } 
: 19 5 669 2 OPCO-STG DESC MAXLEN] = CHS_PER_LEXEME; ; | 
; 19 § 670 IF (CTOKEN, TYPE = MAR_GET_LEX(.INST_STG_DESC, OPCO_STG_DESC)) NEQ ALPHA_STR_TOKEN) y 
; 19 3 of 5 IF (- TOKEN. TYPE GTR KEYWORD_RANGE) : | 
H 1080 674 SIGNAL (PATS _BADOPCODE+MSGS$K_WARN, 2, .OPCO_STG_DESCCDSC$W_LENGTHI, 4 
; 103) 3675 .OPTO_STG_DESCCDSCS$A_POINTERJ); ! No return = 
: 1088 367 144 | 3 1 
; IO ors Look in the opcode table for a match to this string. : 
; 1036 3680 iF ((OPCODE = OPCODE_MATCH( OPCO_STG_DESC, .OPINFO_PTR)) LSS 0) 3.4 
3 H 4 $05 SIGNAL (PAT$_BADOPCODE+MSGSK_WARN, 2, .OPCO_STG_DESCCDSC$W_LENGTH], .OPCO_STG_DESCCDSCSA_POINTER]); ! : 
: 1040 2684 ++ 3) 
3; 1041 2685 ! Found it. Put the opcode byte into the instruction stream being built, unless 3 | 
$ 1pe8 2686 ! there is insufficient information to continue. This only happens when the 3 | 
; 104 2687 ! opcode is reserved, because PATCH does not know how many operands to expect. .7 
3: 1044 2688 ! If this is an assembler directive, then don't try to put an opcode into $j 
3 1963 3689 : the byte stream. Just return successfully. : 
: 1967 2691 If _ (-OPINFO_RECORDCOP_NUMOPS] EQL NOT_AN_OP) : 
3: 1049 269 SIGNAL (PAT$_RESOPCODE+MSGSK_WARN, 2, .OPCO_STG_DESCCDSC$W_LENGTH], .OPCO_STG_DESCCDSCSA_POINTER]); ! 3 | 
3 1050 2694 3 IF (.OPINFO_RECORDCOP_NUMOPS) NEQ ASM_DIR_OP) 4 
3; 1051 2695 THEN 3} 
3 1936 2696 BEGIN ‘2 
; 105 2697 IF (.OPCODE AND 2X'FF") EQL &xX'FD' 3 | 
; 1054 2698 THEN ie 
3; 1055 2699 4 BEGIN ! Output Ist byte of 2 byte OPcode es 
3 1056 2700 4 OUT_BYTE_PTRCO) = %X'FD';: | 3 | 
3 1057 701 4 OUT“BYTE PTR = .OUT BYTE PTR +1; | ; 
3; 1058 7 ; 4 OUT-PCCOJ = .OUT_PC[O) +71; sé 
; 1059 703 4 OPCODE = .OPCODE™* -8; 3 
3; 1060 704 END; 3 
: 1061 2705 OUT_BYTE_PTRCO] = .OPCODE; : 
: 1062 2706 QUT~BYTE PTR = .OUT BYTE_PTR +1; ; 
: 106 2707 OUT-PCLOJ = .oUuT_PCTO) +71; 3 
3 1064 2708 END; 3 
: 1065 709 | 3 
: 1966 710 'e¢ 3 
; 106 711 ! Build a counted string which contains the name of the opcode for possible : 
3; 1068 re ! use later in error reporting. Return a pointer to this string as the | 3 
5 5 +4 at ' result of this routine. : 


FFFFFFFF 
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2 
CPATCH. SRCIPATENC. B32;1 


715 2 CHSMOVE(.OPCO_STG DESCCDSC Sw LENGTH], .OPCO_STG_DESCCDSC$A_POINTER], 
rig PCODE_NAMECTI): 
71 OPCODE_NAMECO] = .OPCO-STG_DESCCDSCSW_LENGTHI; 
718 RE TURNTOPCODE _NAME) ; 
719 1 END; 
.PSECT _PATSOWN,NOEXE,2 
00004 OPCODE_NAME: 
.BLKB 8 
.PSECT _PATSCODE,NOWRT,2 
OOFC 00000 GET_OPCODE: 
-WORD Save af R3,R4,R5,R6,R7 
57 00000000" EF 9E 00002 MOVAB OPCODE_NAME, R7 
56 000000006 00 i 00009 OVAB LIBSSIGNAL, R6 
3E 28 C 90019 SUBL2 us SP 
5 08 AC 060 0001 OVL F_OUT_BYTE_PTR, R3 
1€ AE B4 00017 CLRW  OPCO_STG DESC 
20 AE 6£ 9E OOOTA MOVAB USERTOPCODE, OPCO_STG_DESC+4 
24 AE 19 BO OOO1E MOVW #25, OPCO_STG DESC+8 
1¢ «AE 9F 00022 PUSHAB OPCO_STG_BESC™ 
06 ac ODD 00085 PUSHL INST~STG DESC 
00000000V EF 02 FB 00028 CALLS #2, MAR_GET -LEX 
00000047 = &F 50 01 000¢F CMPL - TOKEN_TYPE,~#71 
17 13 00036 BEQL =s«ésd1$ 
31 50 01 00038 CMPL §_TOKEN_TYPE, #49 
12 15 00038 BLEQ «18 
20 AE DD 00030 PUSHL OPCO_STG_DESC+4 
7E 20 AE 3C 00040 MOVZWL OPCO"STG-DESC, -(SP) 
02 DD 00044 PUSHL #2 
006D8208 8F DD 00046 PUSHL #7176712 
84 04 FB 0004C CALLS #4, LIBSSIGNAL 
OC AC DD OO04F 18: PUSHL OPINFO PT 
20 AE OOF 0003¢ PUSHAB opco STG_DESC 
00000000v_ EF O¢ FB 0005 CALLS OPCOBE. MATCH 
54 50 pO 0005¢ MOVL 4% OPCOD 
12 18 0005F BGEQ 2$ 
30 AE pp 0061 PUSHL OPCO_STG_DESC+4 
7E 0 AE 3C 00064 MOVZWL OPCO"STG-DESC, -(SP) 
ge DD 00068 PUSHL os 
00608208 8F DD O006A PUSHL #7176712 
6 04 FB 0007 CALLS #4, LIBSSIGNAL 
52 0c BC dO 007 2$: MOVL  @OPINFO_PTR, R2 
8F 04 A2 04 09 FC 07 CMPV =«-s«s#0, «#4, 4(RO), #1 
1 poet BNEQ 3$ 
30 AE pd 0083 PUSHL OPCO_STG_DESC+4 
7E 0 AE C 00086 MOVZWL OPCOTSTG-DESC, -(SP) 
DD OOBA PUSHL We 
00608210 F 0D 000 PUSHL #7176720 
66 & FB 0009 CALLS #4, LIBSSIGNAL 
8F 04 A2 04 00 EC 00095 3$: CMPV #0, #4, 4(R2), #-2 
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H 13 
PATENC 1¢-3¢ p-13 4 VAX-11 Bliss-32 V4.0-742 4 | PAT 
V04=000 14-Sep-19 1 99:59:33 DESKSUMSMASTERSCPATCH, SRCIPATENC.83204 ey v04 
$ : a4 r 9 } ROUTINE GET_OPERAND ( INS_STG_DESC, OPRND_STG_DESC, USER_SYM_FLAG, OPR_CONTEXT ) = | ; 1 
54 78 7 ; 1 144 | 71 
: 19 9 f ? ! Functional Description: : 
31 ¢ 725 1! This routine scans the input stream and extracts he next operand from | : 1 
3 } 7 § , | it. During this scan, al eueryessene 9 -~ symbolic names are ey ~teee : 
3: 1084 7 1! The resultant ‘‘operand’’ string is pt aced in the buffer pointed to by : 1 
; 1085 7 8 1! OPRND _STG_DESC. This string can then be encoded by ENC_OPERAND inte ‘ 1 
: 1086 7 1! inary Operand for the instruction. 2] 
3; 108 730 1! : 1 
; | f 1 ! : Calling Sequence: | : : 
; Has f 5 : GET_OPERAND (INS_STG_DESC, OPRND_STG_DESC, USER_SYM_FLAG, OPR_CONTEXT) : 
; 1098 , 5 ; Inputs: ; 
> 109% 7 ; ii INS_STG_DESC = Address of string descriptor for remaining operands of : 
; 1095 738 1! instruction being encoded. 2] 
: 1096 739 «1! OPRND, STG_DESC = Address of string descriptor for buffer pee which the : 1 
3; 1097 sree 1! “‘pre-processed’’ operand string will be plac 31 
; 1098 741 1! USER_SYM_FLAG = Indicator whether or not to reduce user-defined symbols. :]) 
3 1099 2742 1! This feature is for command file output. 3 1 
: 1100 743 1! (TRUE=reduce, FALSE=don't reduce) 3 
3: 1101 744 1! OPR_CONTEXT - Indicates the number of bytes ler the operand used in | 3 
3 1108 Se : the current context. (Implements the I* logic.) ; 
: 113e aes : ; Implicit Inputs: | ‘ 
> 1106 749 1! PATSGL_MOD_PTR = is used by the radix convert routine : ] 
3 By 24 £30 : } to convert numeric input. 3h 
11 reg | | Sutoutes | 
a} see | nara | 
: 1118 736 i Implicit Outputs: | 
: 1115 2758 1: OPRND . STG_DESCCDSC$W_LENGTH] will be set to the length of the operand. 
: 1338 2759 1! The buffer pointed to by OPRND_STG_ DESC EDS CSA POINTER] will contain the 
3 Vite 160 ; } ASCII operand string. 
: 1119 768 Return Value: 
: 1121 764 1: OPR_FOUND (1) = if an operand is found. 
3 11 ; 765 1! NO eo OPR (0) - if there are no more operands. | 
311 766 1! OPR_ERROR (2) <= if there was an error in the operand. 
: 1166 pee : OPR- FORW. REF (3)- if there was a forward reference to a symbol | 
; 1196 769 i Side Effects: 
: 1158 771 1! ALL errors in expressions or undefined synbols are SIGNALed, causing 
3: 1129 772 1! an INFORMATIONAL message to be printed. en an error code is returned 
3 11 773 1! so that the routine that called PPATSING ENCODE will output the 
3 i 1 ae ; instruction that could not be encoded. 
; 1138 776 1! Also, PATSCP_OUT_STR and PATSGL_BUF_SIZ are destroyed. 
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5 
J 
777 : 
5 ore lan | 
77 
780 BEGIN | 
781 
; ; ei INS_STG_DESC : REF BLOCK C,BYTE) ! String d iptor f ini d | 
: ! String descriptor for remaining operands | 
f ¢ OPRND_STG_DESC : REF BLockt Bytes; ; String descriptor for returned operand 
7 : LABEL 
7 DIGIT_CODE ! Digit string token code 
788 OPERATOR CODE, ! Operator handling code 
789 RANGLE_CODE, ! Right angle bracket hendt ing code 
790 ALPHA_CODE, ! Alpha str_token handling code 
44 GET_PATHNAME ; ! Code fo gét a pathname 
79 BIND 
Ie EXP_STG = UPLIT BYTE (ZASCIC ‘*X!XL"); ! FAO control string to convert binary numbe 
796 MACRO | 
797 EXP$L_VALUE = 0, 0, 35° 0%, ! EXP$L_VALUE (expression value stacked) 
0, 32, 8, 1%; ! EXPSB_OPERATOR (token_type for stacked ope 
00 LITERAL 
801 EXPSC_SIZE = 5, ! Length gt one expression stack entr 
80 EXPR_STK_SIZ = EXP$C_SIZE * 20, : Allow 20 entries on expression stac 
80 NEGATION_TOKEN = <1; ! Token value for unary ‘-' 


Pointer to first byte of this operand 
Flag to exit operator select loop 
Current numeric value found 

Current operator to process 


INS START_PTR : REF VECTORC, BYTE), 
CUR_ VALUE 

CUR“ OPERATOR, 

NUMBER FLAG, 

PREV_TOKEN, 

TOKER_TYPE, 

LEX_STG_DESC : BLOCKE 12 ,ey1eJ. 
STACK_PTR : REF BLOCKC,BYTE 


EXPR STACK : BLOCKCEXPR STK $12,BYTE), 
LEX_BUF : VECTORCCHS_PER_LEREME BYTE): 


Flag set if operand contained a numeric va 
Previous token_type value 

Encoded type of token found by PATSMAR_GET 
String descriptor for current lexeme 
Pointer to next free position on expressio 
Expression stack (grows from low address t 
Buffer to hold ascii lexeme string 


'e¢ 
First check that there is more input in the remaining operand string. 


if (. INS_STG_DESCCDSC$W_LENGTH) EQL 0) 
RETURN(NO_MORE_OPR) ; 


lee 
: Initialize local variables before starting lexical scan. 


mc ee a a a es ts et a ts cs = a 2s 2 2 2 = = La 8s = = = g 
ee ee ee ee ce ec ce ee em ee et De ek ee Dd a ee ed ae od dd od od = dd 


fe] 109 Cd 09 09 09 09 SI NINN NNN NNN NOAA AAAAACAAOAIIMINIIUIUIVIVI ES BS BERLE LEE 
p+ pet tg tet oped IPT BS ES EE OA AE ry tt ttt SA hat ht a oe 


1 

1 
798 EXP$SB_OPERATOR = 
799 


WN "SO OOVNOUE WN 0 OONOULSWN Oo 


WIN OPIPOPIPOPUPOPUNUND 


0); 
INS_START_PTR = CHSPTR(7INS_STG_DESCCDSCSA_POINTERJ, 0); 
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BYTES_IN_OPRND = 0; 


OOo 
we 


Wr 


Zero the buffer which will hold the return operand. 


tt 2 ot 2 
ys 


! Now enter a loop to 
! The first is by SIGN 


ZEROCOR (.OPRND_STG_DESCCDSCSA_POINTER], ( OPRND_STG_DESCCDSCS$W_MAXLENJ/4)); 


of the validity of the resultant operand string. 


SELELELEE 
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DISKSVMSMASTER: 


! Initialize to no bytes 


20-74 P 
[PATCH SRCIPATENC.832; 1 3 


———————— eee 


pyres the operand. There are two ways out of this Loop. 

Ling an error. The second is by encountering a comma or 

' end of Line. ome tokens may be passed directly into the operand strin 
8 


! others indicate expressions or symbols. There no check in this routine 


i Get the next token. The process this token based on its 


! encoded token_type. 


LEX_STG_DESCCDSC$W_LENGTH] 
DSCSA~POINTER] 
SCSW } 


SET 


CCL_PAREN_TOKEN, ; 
RSGUARE_TOKEN, ' 
HASH_TOREN ' 
UP_ ARROW TOKEN, i 
PERIOD_TOKEN): ' 

a 
' ALL of these tokens are passed directly 
operand string. 


n . ween 
in .toffset, .-offset 


into the resultant 


ADD _LEX_T_OPRND LEX_STG_DESC, .OPRND_STG_DESC); 


COP_PAREN_TOKEN, ' "(' as in (reg) 
LSGUARE TOKEN: ! "C* as in Creg] 


lee 


i These tokens signify the end of an expression, if there is 


iF (.NUMBER_FLAG) 
THEN 

BEGIN 

lee 


one. The expression and the token should be passed through. 


i Output the Literal to the operand string. 
! here is number(reg) or number[reg]. 


lexical scanner. 
iF (TOKEN, TYPE EQLU AT_SIGN_TOKEN) AND (.PREV_TOKEN EQL 0) 
eee 
!' There is no previous token therefore this must the 


' @(reg) case. Just pass the operator through to the 
! resultant operand string. 


oo 
WAPONOND: 


Wwn— 


ADD_LEX_T_OPRND( LEX_STG_DESC, .OPRND_STG_DESC); 
LEAVE OPERATOR_CODE; 


WDODODOOOVOOOOOOOOOOOODOOODODODOOOODOON0NO 


SWWANAAWAS 


Merron 
LESE 


ono 
oo 


IF ((. TOKEN TYPE EQLU PLUS_TOKEN) OR (.TOKEN_TYPE EQLU MINUS_TOKEN)) AND | 
. (-PREV_TOKEN EQLU PERIOB_TOKEN) 


BEGIN 
lee 


i This is the case of .toffset or -7offset; pass through 
! the operator to the resultant string. 


RRRELE 
errs 
NOUS WO OONOUES WN —O 


] 
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PATEN 16-Sep-1984 00:40: VAX-11 Bliss-32 V4.0-742 Page 37) 
v04e050 12-808-13 4 99:29:43 DISKSVMSMASTER: LPATCH, SRCJPATENC.B32:1> a 
: 124 91 IF (.STACK_PTR NEQU EXPR_STACK) 
iy ‘3 38 THEN pein : 
71 39 94 ¢ SIGNAL (PATS _NOANGLE+MSGSK_INFO); ! Invalid expression - no closing ‘'>"' | 
: } 38 ot SLL URRCOPR ERROR? 3 
> 1254 38 PATSGL_BUF_$17 = 0; | 
: 1255 98 PATSCP_OUT-STR = CHSPTR(.OPRND_STG_DESCEDSCSA_ POINTER], 
3 $ -OPRND_STG_DESCLDSC$W_LENGTHJ); 
3 } 900 PATSFAO_PUT(EXP_STG, .CUR_VALUE); 
; 1258 901 OPRND_STG_DESCCBSC$W_LENGTH] = .OPRND_STG_DESCCDSCS$W_LENGTH] + .PATSGL_BUF_SIZ; 
; 1259 306 NUMBER_FLAG = FALSE; '“Reset literal flag 
1581 304 Mega se 
:1 6¢ 905 4 : 
3; 126 208 4 le¢ 
; : re) st ? Now pass through the ‘(" or the ‘C'. 
: 1 909 4 ADD_LEX_T_OPRND( LEX_STG_ DESC, .OPRND_STG DESC); 
i] 67 910 ; IF. TORER_TYPE EQLU"LSQUARE_fOKEN) ~ ~ 
> 1269 1 4 BYTES_IN_OPRND = .BYTES_IN_OPRND OR CONT_INDX_MASK; | 
: 1579 14 oe | 
: 127 15 
3 127 16 CAT_SIGN_TOKEN, ! "a" shift operator or a(reg) 
3 1274 17 PLOS_TOREN, ! "+" addition operator of (reg)+ 
3: 1275 18 3 MINUS_TOKEN, ' "+" subtraction operator of -(reg) 
: 1276 19 SLASH_ TOKEN, ! "/* division operator 
: 1277 $9 ASTERTSK_TOKEN): ! 'e* multiplication operator 
; 1378 1 OPERATOR_CODE: | 
18ep fi eee 
: 1581 4 4 i ALL operators are handled here. Later additions should be the 
3 1386 5 4 ! ampersand (&) for logical AND and exclamation point (!) for 
: \¢e7 $ 2 logical OR. These are not currently passed through the 
; 1285 8 4 i 
3 12 9 5 
3 Fs t4 4 
3; 1288 5 
3; 1289 2 
; } 90 
i] 3 
31 3 
3 1 5 
3% 4 
3% 4 
3:1 4 
3 1 5 
3 ! 4 
; 3 
1 3 


SoSSs3 
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If _(. TOKEN. TYPE EQLU PLUS TOKEN) AND (.PREV_TOKEN EQLU CL_PAREN. TOKEN) 
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18-Se 1984 00:40: VAX=11 Bliss-32_ V4.0-742 P 8 
1 ~Sep-19 4 99:39:33 DISKSVMSMASTER: PATCH. SRCIPATENC.B32; 1° 3 


ADD LEX,T OPRND( LEX STG_DESC, .OPRND_STG_DESC); 
LEA OPERATOR_CODE; 


egg 
: This is the case (reg)+. Pass through the operator. 


ADD_LEX_T OPRND( LEX_STG_DESC, .OPRND_STG_DESC); 
LEAVE OPERATOR_CODE; 


IF (.TOKEN_TYPE EQLU MINUS_ TOKEN) 
THEN 


WN —O OONOULSWN —OVOONOULS WN O0@ 


INWARD 


eer 


Ww 
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! There should never be two successive operators unless the 

' second is the unary negation operator. If the second is the 
' negation operator, then stack it and the current value. 

! Then set the current operator to be negation_token. 


lee 
if (.CUR_OPERATOR NEQ 0) 
THEN 


me ee ee a me kt ee ed ad ed ed ot = = 2 = 8“ = = 2 a = 3 2 8 g 
ADAM ANAD Se ee ee ee 
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Iv 


ae 
Check for the case -(reg). 
LOCAL 
NEXT_CHAR : BYTE, ' Next character from operand stream 
INS_PTR : REF VECTORC,BYTE); ! Pointer to next character in operand strea 


'++ , 
! Find the next character_in the operand stream that is 
' not a space or a tab. This to check if the next 


character is a ‘( 


INS _PTR = CHSPTR(.INS_STG_DESCLDSCSA_POINTER],0); 
UNTIL (¢ XT_CHAR NEQU ' ')"AND (TNEXT_CHAR NEQU ' *)): 
IF NEX ( 


his was a case of -(reg). Pass through the ‘-'. 
LEX_T_OPRND( LEX_STG_DESC, .OPRND_STG_DESC); 
VE OPERATOR_CODE; 


IF (,TOKEN_TYPE NEQU MINUS_TOKEN) 
THEN 


BEGIN 
SIGNAL (PAT$S_MULTOPR+MSGS$K_INFO); ! Two sequential operators found 


lee 
' Stack the current operator and value. 


M13 
PATE 16-Sep-1984 00:40: VAX=11 Bliss-32 V4.0-742 Page 39 
v045000 122385713 4 99:99:33 DISKSVMSMASTER: PATCH. SRCIPATENC.B32; 1° a 
RETURN(OPR_ERROR) ; 
END 
5 wa 
66 If (C.STACK.PTR + EXPSC_SIZE) GTRU (EXPR_STACK * EXPR_STK_SIZ)) 
68 BEGIN 
69 SIGNAL (PATS _EXPSTKOVR+MSGSK_INFO); ! Stack overflow 
70 RETURN(OPR_ERROR) ; 
4 END; 
48 
7% 
75 


pe eee folololaleleolololol oleoleleloleloq) 
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' 

ds STACK_PTRCEXPS$L_VALUE] = .CUR_VALUE; 

7 STACK-PTRLEXP$B_-OPERATOR] = .CUR OPERATOR; 
78 STACK-PTR = CHSPTR(.STACK_PTR, EXPSC_SIZE); 
79 CUR_VALUE = 0; 

80 CUR“OPERATOR = NEGATION_TOKEN; 
381 LEAVE OPERATOR_CODE; 

o¢ END; 


lee 
Set the new current operator and go get the next token. 


CUR_OPERATOR = .TOKEN_TYPE; 
END? 


WAN 
Ooo Noe 


Oo oo 
Wr 


CLANGLE_TOKEN): ! *<* encloses expression 
BEGIN 


ooo 


Check for expression stack overflow. 
iF ((.STACK_PTR + EXPSC_SIZE) GTRU (EXPR_STACK + EXPR_STK_SIZ)) 


OOooooooooooooo 


BEEF FAWN 


ed 
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94 

95 

96 

97 4 

98 04 BEGIN 

99 04 SIGNAL (PATS_EXPSTKOVR+MSGS$K_INFO); ' Stack overflow 
00 04 RETURN(OPR_ERROR) ; 

01 04 END; 

4 04 

0 04 !e¢ 

04 047 ! Put new entry on expression stack. Then reset the pointer 

405 bes ' to the next unused entry. Push the current operstor if there 
rey bep is one, otherwise push a ‘<* as the operator. 

408 051 STACK_PTRCEXP$L_VALUE] = .CUR_VALUE; 

ret O3¢ STACK_PTRCEXP$B_OPERATOR) = qf (.CUR_OPERATOR NEQ 0) 

411 054 -CUR_OPERATOR 

oi¢ 055 ELS 

41 056 - TOKEN_TYPE); 

414 pee STACK_PTR = CHSPTR(.STACK_PTR, EXPSC_SIZE); 

415 28 CUR_VALUE = 0; 

416 05 CUR_OPERATOR = 0; 
417 bet END; 
418 1 


-1984 00:40: VAX-11 Bliss-32 V4.C-742 Page 40) 

04 ars yi 99:69:43 DISKSVMSMAS TER: LPATCH. SRCJPATENC B32: 1° (7) | 
; 1419 R68 
: 1420 06 CRANGLE_ TOKEN): ! ">" encloses expression 
: 1421 064 RANGCE_ CODE: 
3; 14 ¢ 065 4 BEGIN 
3 14 B98 4 144 
3 1426 067 4 ! The right angle bracket causes one entry to be taken off the 
> 1425 068 4 ! expression stack. This entry givers immediately precedes the 
3 14 § B82 4 ! next free entry pointed to by STACK_PTR. When an “es is | 
3 14 070 4 ! removed, the current value and the stacked value must be 

3; 1428 071 4 ! combined using the stacked operator. If the operator is a 

: 1429 ors 4 ! Left angle bracket, then there were two consecutive left 

3; 1450 073 4 ! angle brackets in the expression and there is no stacked value 

3 1og) Bre ‘ to be combined. | 
: 1238 076 5 IF (.STACK_PTR EQLU EXPR_STACK) ! Check for stack underflow 

> 1434 077 4 THEN 

3 1435 078 5 BEGIN 

> 1436 3079 5 SIGNAL (PATS_NOANGLE +MSG$K_INFO); ! Stack underflow 

3 1437 son; 5 RETURN(OPR_ERROR) ; 

: 1438 081 4 END; 

3 1439 3082 5 IF (.CUR_OPERATOR NEQU 0) OR (.PREV_TOKEN EQLU LANGLE_TOKEN) ! Check for missing operand 

3 1440 3083 4 THEN | 
3 1441 084 5 BEGIN 

3 rr 085 5 SIGNAL (PATS_NOOPRND+MSGS$K_INFO); ! Missing operand (got operator>) 

3 144 086 5 RETURN(OPR_ERROR) ; 
5 1444 3087 4 END; ; 
3 1445 3088 4 STACK_PTR = CHSPTR(.STACK_PTR, -EXPS$C_SIZE); ! Point to last entry | 
3 1446 3089 4 DO 
3 1447 3090 5 IN 
; 1448 3091 5 FLAG = TRUE; 
3 re $09 ; SELECTONE ; STACK _PTRCEXPSB_ OPERATOR] OF | 
3: 1451 3094 § CPLUS_TOKEN): CUR_VALUE = .STACK_PTRCEXPSL_VALUE] + .CUR_VALUE; 
: 145@ 3095 5 MINUS_ TOKEN): CUR-VALUE = .STACK~PTRCEXPS$L_VALUE) = .CUR-VALUE; 
3; 145 ; 96 5 ASTERTSK_TOKEN): CUR_VALUE = .STACK_PTRLEXPSL_VALUE] * .CUR_VALUE; | 
3 1454 97 5 SLASH_TOREN): CUR_VALUE = .STACK_PTRLEXP$L_VALUE] / .CUR_VALUE; 
3 1455 3098 5 AT_SIGN_TOKEN): CUR_VALUE = .STACK_PTRCEXPSL_VALUE] * .CUR_VALUE; 
3 1456 099 5 LANGLE_TOKEN): 0; ! No operation to perform 

3 1457 100 5 ! ® FUTURE * AMPERSAND_ TOKEN): CUR_VALUE = «STACK PTREEXPSL VALUE + .CUR_VALUE; | 
3; 1458 3101 5 ! * FUTURE * pexcl an PT TOKEN): CUR_VALUE = .STACK_PTRCEXPSL_VALUEJ + .CUR_VALUE; 
3: 1459 3108 6 NEGATION_TOKEN): BEGIN 
3; 1460 3103 6 FLAG = FALSE; 

3: 1461 104 6 CUR_VALUE = =.CUR_VALUE; 

; 146¢ 105 r IF C+STACK_PTR NEGU EXPR_STACK) ! Check for stack underflow 

3 1464 107 8 STACK_PTR = CHSPTR(.STACK_PTR, -EXPSC_SIZE); ! Point | 
3 1465 108 END; 
3 1466 109 6 COTHERWISE): BEGIN | 
3 1467 110 6 SIGNAL (PAT$_INVOPR+MSG$K_INFO); ! Unrecognized operand | 
> 1468 111 6 RE TURN(OPR_ERROR) ; | 
3 1469 We 5 END; 
3; 1470 113° «5 TES; 
3 1471 114 § END 

3 1606 115 4 UNTIL (.FLAG); 

3 147 116 4 | 
3 1474 117 4 CUR_OPERATOR = 0; 
3; 1475 118 4 NUMBER_FLAG = TRUE; 
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4 DISKSVMSMASTER:CPATCH.SRCIJPATENC.B32 


END; 


CDIGIT_STR_TOKEN): ! numeric string 
—-e EQL 0) 
CUR_VALUE = .(.LEX_STG_DESCCDSCSA_POINTER]) 


ELSE 
BEGIN 
FLAG = TRUE; 
IF (.CUR_OPERATOR EQL NEGATION_TOKEN) 
CUR VALUE = .(.LEX_STG_DESCCDSCSA_POINTER)); 
SELECTONE ;CUR_OPERATOR OF 
CPLUS_TOKEN]: CUR_VALUE = .CUR_VALUE + - ¢.LEX_STG_DESCEOSC$A_POINTER]) ; 
MINUS TOKEN]: CUR VALUE = .CUR-VALUE = .(.LEX STG DESCCDSC$A_POINTERJ): 
ASTERTSK TOKEN]: COR VALUE = .COR_VALUE * .(.LEX_STG_DESCCDSCSA_POINTERI); 
SLASH _TOREN]: CUR VALUE = .CUR_VALUE / .¢.LEX STG_DESCCDSC$A_POINTER)); 
AT SIGN TOKEN]: CUR_VALUE = .CUR_VALUE * .(.LER_STG_DESCCDSCS$A_POINTERJ); 
LANGLE_TOKEN): ; ' No operation to per tore 
! ® FUTURE * AMPERSAND_TOKEN]: CUR_VALUE = .CUR_VALUE AND .(.LEX_STG_DESCCDSCSA_POINTER)); 
! ® FUTURE * EXCLAM_PT- TOKEN]: CUR_VALUE = .CUR_VALUE OR .(.LEX_STG_DESCCDSCS$A_POINTERJ); 
NEGATION_TOKEN): BEGIN 
FLAG = FALSE; 
CUR_VALUE = =.CUR_VALUE; | 
IF _X.STACK_PTR NEGU EXPR_STACK) ! Check for stack underflow | 
BEGIN 
STACK_PTR = CHSPTR(.STACK_PTR, -EXP$C_SIZE); ! Point | 
CUR_OPERATOR = .STACK_PTRIEXP$B_OPERATORI; 
-LEX STG_DESCCDSCS$A_POINTER) = -CUR_VALUE; 
CUR _VALUE = .STACK_PTRCEXP$L_VALUEJ; 
END; 
COTHERWISEJ: BEGIN 
SIGNAL (PAT$_INVOPR+MSGSK_INFO); ! Unrecognized operand 
RETURN(OPR_ERROR) ; 
END; 
TES; 


END 

UNTIL (FLAG); 
CUR_OPERATOR = 0; 
NUMBER, FLAG = TRUE; 


! End of operand string 


ck if there is a numeric value to be written to the 


NJ 

IN 

veer of these tokens signals the end of the operand string. 
€ 

esultant string. Check for expressions left on the stack. 


| 
| 
| 
| 
| 


14 | PA’ 
-Sep- AX=11 Bliss-32_ V4.0-742 Page 42. 
nes, 1f$e0-1984 19:33:53 OS cSumemasten CPATCH.SRCIPATENC.B32;1 (7) | vo: 
IF (.NUMBER_FLAG) | 
: i 4 155 ; THEN | 
: 1535 178 BEGIN | 
: 1 186 Output the current value as an ASCII string. 
: 1538 181 ine | 
: 1273 ! PATSGL_BUF_SIZ = 0; TR(.OPRND_STG_DESCCLDSCS$A_POINTER], 
: 1349 18s 2 rer, ;OPRND 8 '6_DESCLDSCSU-LENGTH) | 
: 1208 182 5 BPRND STG DESCEDScsu_CEWeTMIee . OPRND_STG_DESCCDSC$W_LENGTH] + .PATS$GL_BUF_SIZ; | 
+ 1544 187 4 ; | 
: 1202 185 ¢ +4 | 
: 1809 190 4 i Check that there is not a missing operand, i.e., there exists 
: 1548 191 4 | a current operator. | 
: 1886 198 ¢ IF _(-CUR_OPERATOR NEQ 0) | 
> 1551 194 4 | 
: 1888 3196 3 BT CNAL (PATS NOOPRND+MSGS$K_INFO); ! Missing operand (got operator>) 
3 1554 3197 5 RETURN(OPR_ERROR) ; | 
; 1555 3198 4 END; | 
; 1556 1 ? om | 
: 1888 3201 4 i Check that there was nothing Left on the expression stack. | 
° Bae | 
: 1360 3208 : if _(-STACK PTR NEQU EXPR_STACK) | 
> 1561 204 4 H 
; 1368 3506 3 SIGNAL (PATS NOANGLE +MSGS$K_INFO); ! Expression stack not empty | 
+ 1564 3207 5 RETURN(OPR ERROR) ; | 
: 1368 3209 : IF (.OPRND_STG_DESCCDSC$W_LENGTH] EQL 0) 
: 1368 3519 : _ RETURN(NO_MORE_OPR) ! Got , or EOL_TOKEN and no operand 
: 1293 3518 4 wate RETURN(OPR_FOUND); 
: 1570 
3 1571 214 END; 
3 1376 215 ; 
: 1392 3515 CALPHA_STR_TOKEN]): ! Register, L*,B*,... or symbolic name 
+ 1575 218 3 ALPRA_CODE: | 
: 1276 i? ? BEG | 
: 1378 $f 4 i First check if the string is a register. If so then pass | 
+ 1579 4 i it through. | 
; 1580 leo | ; 
: 1882 $56 4 a ' Return status from 5 mbol definition 
: -BYTE], ! Buffer to hold all of pathname 
: 1ap2 $55 4 SYMBOL BES Shorr atET _ String descriptor for pathnane 
; 138? $6 ¢ NEXT AS ¥ ser VE i Poi ter to next character in input stream 
: 1586 229 ¢ INS _PTR : REF VECTORC BYTE), ; Pointer to next characte | 
: 133 eg LEXEME PTR i Pointer to ASCII lexeme | 
: 1389 } TEMP VALUE. i value of pathname 
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D 14 | 
6=Sep-1984 00:40:15  VAX=11 Bliss-32 v4.0-742 P 43. 
4 ety 7 9:69:33 DISKSVMSMASTER:CPATCH.SRCIPATENC.B32:1> (7) 


CHAR : BYTE; ! First ASCII character in lexeme 


IF ((REG_NUM = PATSREG_MATCH(LEX_STG_DESC)) GEQ 0) AND 
wenc REGNUM LEQ MAX_REG) 


een 
Found a register. Pass it through. 


ADD_LEX_T_OPRND( LEX_STG_DESC, .OPRND_STG_DESC); 
LEAVE ACPRA_CODE; 
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'44¢ 
! It was not a register. Check if it is one of the following 
! directives: L*, W*, B*, I*, or S*. If so, pass the token 

through. 


LEXEME_PTR = CHSPTR(.LEX_STG_DESCCDSCSA_POINTERI, 0); 
CHAR =~CHSRCHAR(.LEXEME_PTR)> 
IF, ((-LEX_STG_DESC DSC$W-LENGTH] EQL 1) 


IF (.CHAR EQLU se OR 


Se 
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CCDSCSA_POINTERI, 0); 
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606 

607 

608 

609 

610 

611 

olg 

61 (.CHAR EQLU ‘W') OR 

614 (.CHAR EQLU 'L') OR 

615 (.CHAR EQLU 'I") OR 

616 (.CHAR EQLU 'S*) 

617 HEN 

618 BEGIN 

619 INS_PTR = CHSPTR(.INS_STG_DES 

620 NEXT_CHAR = CHSRCHAR(CINS_PTR); 

621 IF (ZNEXT_CHAR EQLU '*') 

oc¢ HEN 

62 BEGIN 

624 LEX_BUFC1] = °*'; 

625 LEX STG_DESCCDSC$W_LENGTH] = .LEX_STG_DESCCDSCS$W_LENGTH] + 1; 

626 INS_STG_DESCCDOSCS$W_LENGTH] = .INS STG DESCCDSC$W_LENGTH) - 1; 

627 NS-STG_DESCCDSC$A_ POINTER] = .INS STG_DESCCDSCSA_POINTER] + 1; 

628 ADD-LEX-T_OPRND(LER_STG_DESC, .OPRAD_STG_DESC); 

4 IF T.CHAR EQLU 'B') 

630 THEN 

631 BYTES_IN OPRND = .BYTES_IN_OPRND OR B_HAT_MASK; 

$36 2 IF (.CHAR EQLO 'Q') 

rT : BYTES_IN_OPRND = .BYTES_IN_OPRND OR W_HAT_MASK; 

o9? $ if {CHAR EQLO 'C') 

637 280 BYTES _IN_OPRND = .BYTES_IN_GPRND OR L_HAT_MASK; 

638 281 IF (.CHAR EQLO 'T') 

639 2 § THEN 

640 2 BEGIN 
641 284 BYTES_IN_OPRND = .BYTES_IN_OPRND OR .OPR_CONTEXT; 
ob¢ 5 PATSGC_CONTEXTCI_HAT_SEEN] = TRUE; 
64 § END; 
644 LEAVE ALPHA_CODE; 
645 288 END; 

646 289 END; 
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i The alpha string must be a symbolic name. 

i Add the current token to the path name by cath tng therm PATH. 

i Also build an ascii string of the pathnane using AD LEX. T_OPRND 

i in case the symbol turns out to be undefined his willbe 
iv used for forward branching in patch area. 


SYMBOL _DESCCDSC$W_LENGTH] = 
SYMBOL_DESCLDSCS$A_POINTER) = “Byngo. _BUF; 
Appect DESCCDSC$W- RAXLEN] = MAX BUF SIZ: 


(LEX_STG_ DESC SYMBOL DESC) 
SF PATSBUIL DCA _PATH(LEX_STG_DESC, 0, FA Avge) 


SIGNAL (PAT$_NOF REE) ! Insufficient free memory 
GET_PATHNAME : 
BEGIN 


Aes 
INS. PTR = CHSPTR(.INS_STG_DESCCDSCSA_POINTERJ, 0); 
T CHAR = CHSRCHAR ~ACINS . PTR) 
UNTIL ((. NENT CHAR wea ® ")"AND (TNEXT_CHAR NEQU ' ")); 
1F (NEXT. CHAR NEQU ' 
LEAVE GET_PATHNAME 
BEGIN 


i “Found a backslash. There must be another 
piece of the pathname. 


LOCAL 


ELSE 


TEMP_TOKEN; ' Temporary token type 


'+¢ 

Now loop to get the rest of the pathname (if any). 
'++ 
i Now PATCH should be able to get the next two 
i tokens (BACK SLASH_TOKEN and ALPHA_STR_TOKEN). | 
tA Any other token types are errors. 
LEX_STG_DESCCDSC$W_LENGTH] = OF | 
LEX-STG_DESCCDSCSA_ =pOINTER) = BUF ; 

LEX" STG" DSC SWE XLEN] = chs XDER LEXEME; 

asl TOKEN CoRR, AGET LEX( .INS_STG_DESC, LEX_STG_DESC)) NEQU BACKSLASH_T 


BEGIN 
| eeeeeeee THIS NEEDS AN OPERAND!!!!!!!! WHICH ONE? ; 
SIGNAL (PATS INVPATH#+MSGSK _ INFO); ! Invalid pathname 
RETURN(OPR. ERROR): | 
ADD_LEX_T QPRNOCLEX ST STG G DESC. SYMBOL _DESC); 
LEX"STG_DESCCDSC$W 
LEX~STG-DESCCDSCSA_ peNRT ER) = OF ex _BUF ; 
i 
| 
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17 4 LEX_STG_DESCCOSCSW_MAXLEN] = CHS_PER_LEXEME; 

4 5 rs on RP TOKEN = MAR_GET_LEX(.INS_STG_DESC, LEX_STG_DESC)) NEQU ALPHA_STR_ TO | 
$9 2 BEGIN | 
08 ! weeneeee THIS NEEDS AN OPERAND!!!!!!!! WHICH ONE? 

09 2 ns oare INVPATH#MSGSK_ INFO); ! Invalid pathname 
2 ! weeenenee THIS NEEDS aN OPERAND ESTEE GHICH ONE? 
2 IF NOT PATSBUILD. PATH(LEX_STG_DESC, 0, FALSE) 
5 SIGNAL (PATS_NOFREE); ! Insufficient free memory 
Z at LEX_T_OPRND(LEX_STG_ DESC, SYMBOL _DESC); 
6 END; 
? END; 
6 'e4+ 


o 


i Now the complete pathname has been acquired. Try 

i convert it into a numerical value. rst scorch” the current 
i symbol table na label. Then search the old label symbol 
i table. Lastl if the symbol is not defined then 

if PATSBUILD. PATH returns F LSE. 


| 

| 

| 

| 

STATUS = PATSFIND_SYM(SYMBOL_DESC); | 
me -STATUS EQLA 0) 
BEGIN | 
“Seneaber the current symbol table but force 

| 
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$e _PATSFIND_ SYM to use the old contents Label table. 

36 LOCAL 

37 TEMP SYMTB PTR; 

38 TEMP_SYMTB_PTR = .PAT$GL_SYMTBPTR; 

39 PATSGL_SYM MTBPTR = .PATSGC_OLDLABL §; 

40 STATUS = PATSFIN ND_S SYACSYABOL DESC); 

re. lb SYMTBPTR = - TEMP_ SYMTB_ PTR; 

rk if (.STATUS NEQA 0) 

44 8 THEN 

45 8 BEGIN 

46 8 '++ 

47 9 : syatet was defined as a label. Get the value and 

48 9 ' then change STATUS from the table entry address to 

oy , ino a code which would be returned by PATSBUILD_PATH. 

751 9 MP_VALUE = .SYM_VALUE(. STATUS); | 

P3¢ 9 ATOS = PATSK_USER_DEF; 

75 9 SATSDELETE APATAG: 

754 9 END 

755 4 ELSE 

C38 STATUS = PATSBUILD_PATH(O, TEMP_VALUE, FALSE); 

75 4 IF ree »STATU $) OR If undefined symbol or 

es 3 rt ((.STATUS EQLU PATSK_USER_DEF) AND (NOT USER. SYM_ FLAG)) ! symbol is user-defined and mn 

760 108 BEGIN 
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! Either the symbol was undefined and assumed to be a 
! forward reference or it is a user-defined symbol and 
' this is a reduction for command file output and thus 
the symbol is not to be reduced. In the case of a 
' 

i 

i 


AAD 
NOs 


forward reference, the symbol will be defined later 
in the current PATCH command. Since PATCH cannot 
handle the operand now, set the operand spring 
descriptor to point to the un-reduced ascii string 
in the instruction buffer. 
dO 
o— 
This loop finds the end of the operand. 


LEX_STG_DESCCOSC$W_LENGTH] = 0; 

LEX-STG DESCCDSCSA_POINTER] = LEX_BUF; 

TOKEN_TYPE = T_LEX(.INS_STG DESC, LEX_STG_DESC); 
If (. TOKEN_TYPE EQLU™LSQUARE_ TOKEN) 


BYTES_IN_OPRND = .BYTES_IN_OPRND OR CONT_INDX_MASK; 


N 
UNTIL ((. TOKEN TYPE EQL EOL_TOKEN) OR (. TOKEN TYPE EQL COMMA_TOKEN)); 
OPRND_STG_DESCCDSCS$W_LENGTH] = gee TS DESCCBSCSA_POINTER] 


= ,INS_START_PTR:; 
OPRND_STG_DESCCDSC$A_POINTER] = CHSPTR(.INS_START_PTR, 0); 
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3 RETURN(OPR_FORW_REF); 
78 3 END; 
790 3 ++ 
791 3 ' Now that a value has been found, process it as if a 
198 ; ' DIGIT_STR_TOKEN had been found. 
794 3 IF (.CUR_OPERATOR EQL 0) 
795 3 THEN 
796 3 CUR_VALUE = .TEMP_VALUE 
797 4 ELSE 
798 4 
799 4 IN 
800 4 FLAG = TRUE; 
801 44 IF (.CUR_OPERATOR EQL NEGATION_TOKEN) 
802 445 THEN 
80 446 CUR_VALUE = .TEMP_VALUE; 
804 447 SELECTONE .CUR_OPERATOR OF 
805 448 SET 
806 3449 PLUS_TOKEN]: CUR_VALUE = .CUR_VALUE + .TEMP_VALUE; 
807 450 MINUS_TOKEN]: _CUR-VALUE = .CUR-VALUE - .TEMP-VALUE; 
808 451 ASTERTSK_TOKEN]: COR_VALUE = .COR_VALUE * .TEMP_VALUE; 
809 45 SLASH_TORENJ: CUR_VALUE = .CUR_VALUE / .TEMP_VALUE; 
810 45 AT_SIGN_TOKEN]: CUR_VALUE = .CUR_VALUE * .TEMP_VALUE; 
811 454 LANGLE_TOKEN]: : ! No operatica to perform 
Ble 455 ! ® FUTURE * AMPERSAND_TOKEN]: CUR_VALUE = .CUR_VALUE AND .TEMP_VALUE; 
81 45 ! « FUTURE * EXCLAM_PT TOKEN: CUR_VALUE = .CUR_VALUE OR .TEMP_VALUE; 
814 45 NEGATION_TOKEN): BEGIN 
815 58 FLAG = FA 
816 459 CUR_VALUE = =.CUR_VALUE; 
817 460 IF T.STACK_PTR NEQU EXPR_STACK) ! Check for stack underflow 
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; 1818 THEN 
; 1819 5 
; 1820 7 
1853 5 
1858 f 
: 1824 3 
; 1825 END; 
3; 3 8 6 COTHERWISE): BE 
3 1 6 Sl 
3; 1828 RE (OPR_ERR 
; is 9 EN 
3 1 TES; 
; 1831 5 
; 18 ¢ 4 UNTIL (.FLAG); 
; 18 4 CUR_OPERATOR = 0; 
; Ht 4 NUMBER_FLAG = TRUE; 
: 1835 END; 
3; 1836 
3: 1837 
; 1838 3 COTHERWISE): 
3; 1839 4 BEGIN 
: 1840 4 SIGNAL (PAT$ INVOPR+MSG$K _ INFO); 
3 1841 4 RETURN(OPR_ ERROR); 
3 1966 END; 
: 184 
3 1844 TES; 
: 1845 2 END; 
3: 1846 1 END; 
: INFO#212 "Pi :2 
; Null expression appears in RE Te context 


.PSECT 
4C 58 21 58 SE 05 00000 P.AAA: .ASCII 
EXP_STG= 
.PSECT 
OFFC 00000 GET_OPERAND: 
. WORD 
5E FDSO CE 9€ 0000 MOVAB 
58 04 AC 00 0000 MOVL 
68 B5 tie TSTW 
0 1¢ 0000 BNEQ 
0669 3 OOF BRW 
58 7C 0012 18: CLRQ 
08 AE D4 0001 CLRL 
5A p4 0017 CLRL 
56 90 AD 9E 0019 MOVAB 
6£ 4 AB 3 0010 MOVAB 
10 AE 0 BE D 00021 MOVL 
00000000° EF D4 00026 CLRL 


GIN 
yt L(PATS er RenSGSK. INFO); 
D; 
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BEGIN 

STACK_PTR = CHSPTR(.STACK_PTR, -EXP$C S17); ! Point. 
TOR = =i “STACK op IRCEXPSB_ OPERATOR 

CUR. STACR VA OF ExPsL _VALUE); 


! Unrecognized operand 


! Illegal token type 


Unrecognized operand 


! End of REPEAT Loop 


_PATSPLIT,NOWRT ,NOEXE ,0 
<S5>\AXEXLN : 
P.AAA 


_PATSCODE ,NOWRT ,2 
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Bar): SIS -DESC. R7 
(R7 
10, ts), 


LEY STG_DESC 
52 L BUF LEX. srt gppgsces 


oxen ine oaReye TOKEN 
hs pesc 
betes 
2, mn GET_LEX 

* TOKEN. TYPE 
TOKE EN_ TYPE. #63 
TOKEN_TYPE, #67 
TOKEN_TYPE, #75 
TOKEN_TYPE, #80 


TOKEN_TYPE, #83 
4$ 


#0, RO, @4(R7) 


66$ 
TOKEN_TYPE, #69 
TOKEN_TYPE, #73 
NUMBER_FLAG, 8$ 
EXPR STACK, RO 
TACR_PTR, RO 
#7176683 
PATSGL_BUF_SIZ 


) 
eacai tna. PATSCP_OUT_STR 


mow-~v0— ears 
x<xCcfrwPro 
700 NAO 


i =e FAO_PUT 
PATSGL_BUF SIZ, (R7) 
NUMBERFLAG 
CUR. vVACUE 

LEX ST 
é witty PERT 
TOKEN, TYPE, #6 
48, BYTES_IN_OPRND 
TOKEN, TYPE, #60 
TOKEN, TYPE, #61 

$ 


TOKEN TYPE, #70 
12$ 
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104-080 eae e=t 8 Re 99:88:43 WE SUwGmASTERSCPAT CN. SRCIPATENC.B3203°° (3), vod 
0000004C = BF 5A p} 114 CMPL TOKEN.TYPE, #76 : ae 
gc 13 00118 BEQL 128 : 24 
00000052 = &F A p} 11D CMPL -TOKEN_TYPE, #82 : 3 
0086 $4 90196 phy 8S | | 
3D A D1 61 § 128:  CMPL TOKEN. TYPE, #61 t 2929 3 
05 12 0012C BNEG 138 : 3 
OC AE OD ot E TSTL § PREV_TOKEN : | 36 
48 13 00181 BEQL «=s«198 : | 3 4 
3 d4 001 : 13$:  CLRL  R2 + 2941 24 
0000004C —8F A D1 001 CMPL - TOKEN_TYPE, #76 : 3 
8S OS bOl3E Nee t 
03 11 0014 BRB ng. : 36 
00000046 8F A D1 00142 14$:  CMPL =—« TOKEN_TYPE, #70 : 3 
OA 12 0014 BNEG 16$ : 3 4 
00000048 =F OC AE D 00148 15$:  CMPL —s— PREV_TOKEN, #75 + 2942 3 
26 13 0015 BEQL 19$ : 2 
06 £9 00155 16$:  BLBC  R2, 178 + 2953 Par 
3F OC AE 01 00158 CMPL § PREV_TOKEN, #63 : > 
1D 13 0015¢ BEQL : 24 
00000046 = 8F 5A D1 00158 17$:  CMPL =‘ TOKEN_TYPE, #70 + 2963 3 
19 if 0016 BNEQ : 2 
51 00 BE DO 00167 MOVL  @0(SP), INS_PTR : 2978 far 
50 81 90 00168 18$:  MOVB (INS_PTR)+,~NEXT_CHAR : 2980 a4 
20 50 91 0016E CMPB =~ NEXT—CHAR, #32 : 2981 ar 
F8 13 90171 BEQL 1 3 3 4 
09 50 91 00173 CMPB = NEXT_CHAR, #9 : 3 
F313 00176 BEQL : 3 4 
28 50 91 00178 CMPB =~ NEXT_CHAR, #40 : 2982 . i 
03 12 00178 19$: BNEQ 0$ 3 $4 
021F 31 0017D BRW 66$ : ar 
59 D3 00180 20$:  TSTL § CUR_OPERATOR : 2999 3 
28 13 00182 BEQL 228 : 24 
00000046 =F SA D1 00184 CMPL §_ TOKEN_TYPE, #70 : 3001 24 
08 13 00188 BEQL 218 : 24 
006D81DB i bd 0018p PUSHL #7176667 > 3004 24 
B 11 0019 BRB 53 : 2 
51 05 A6 9E 00195 21$:  MOVAB  5(R6), RI : 3009 24 
50 F4 AD 9E 00199 MOVAB €EXPR_STACK+100, RO : 24 
50 51 D1 0019D CMPL = 1, RO : 24 
28 1A OIA BGTRU 24$ ; a a 
86 8 DO OO1A MOVL § CUR_VALUE, (STACK_PTR)+ : 3019 2 
Be 39 90 OO1A MOVB §CURTOPERATOR, (STACK_PTR)+ : 30 0 2 
8 D4 001 CLRL  CURTVAL : 30 é 24 
59 or CE QOTAA MNEGL #1, CUR_OPERATOR > 30 24 
B 11 Q1AD BRB $ ; 30 4 3 
59 A DO OOIAF 22$:  MOVL §TOKEN_TYPE, CUR_OPERATOR : 3030 3 
6 11 00162 BRB $ : 2916 3 
00000044 8F A Dl 0184 238:  CMPL  TOKEN_TYPE, #68 > 3034 3 
0 12 00188 BNEQ $ : a 
51 05 A6 9E 001BD MOVAB 5(R6), R1 : 3039 % 
50 Fe AD i: 1¢1 MOVAB EXPR STACK#+100, RO ; | 
50 51 D 1¢8 CMPL sR, : 2 
ovepsies BF Op OOICA 268: prem Arcane : | 
47 11 B50 oh BRB 34$ : .; 
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CUR_VALUE 
R-OPERATO 
UR_OPERATOR, RO 
TOKEN_TYPE, RO 
n0. 4TSTACK_PTR) 
#5, STACK_PT 
UR_VALUE 


TOKEN_TYPE, #79 
31$ 


(STACK_PTR) 


4$ 

EXPR_STACK, RO 

STACR_PTR, RO 

2$ 

45 

R_OPERATOR 

PREV_TOKEN, #68 

#7176691 

#5, STACK_PTR 
LA 

4(STACK_PTR), RO 

RO, #76 


(STACK_PTR), CUR_VALUE 

RO, #70 

38$ 

CUR_ VALUE. (STACK_PTR), CUR_VALUE 
RS #60 

(STACK_PTR), CUR_VALUE 

RO, #82 

CUR_VALUE, (STACK_PTR), CUR_VALUE 
RO, #61 

CUR_ VALUE. (STACK_PTR), CUR_VALUE 


ag, "8 


ast 


FLAG 

CUR VALUE, CUR_VALUE 
EXPR STACK, RO 
STACK_PTR, RO 
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, STACK_PTR 
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FLAG, 36$ 

46$ 

TOKEN. TYPE, #72 

45$ 


58$ 
CUR_OPERATOR 
EX_STG_DESC+4, CUR VALUE 


#1, FLAG 
‘ R_OPERATOR, #=1 


@LEX_STG_DESC+4 
CUR_OPERATOR, #76 


@LEX_STG_DESC+4, CUR_VALUE 
UR_OPERATOR, #70 
QLEX_STG_DESC+4, CUR_VALUE 
CUR OPERATOR, #60 
QLEX_STG_DESC+4, CUR_VALUE 
R_OPERATOR. #82 
QLEX_STG_DESC#4, CUR_VALUE 
CUR_OPERATOR, #61 
@LEX_STG_DESC+4, CUR_VALUE 
CUR_OPERATOR, #68 
CUR_OPERATOR, #1 
54$ 
99$ 
FLAG 
CUR VALUE, CUR_VALUE 
EXPR STACK, R 
TACR_PTR, RO 
=(STACK_PTR), CUR OPERATOR 


CUR_VALOE, @LEX STG _DESC+4 
~(STACK_PTR), COR_VALUE 
FLAG, 57$ 
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CUR_ VALUE 


47$ 
TOKEN_TYPE, #65 
TOKEN TYPE, #99 


NUMBER_FLAG, 60$ 
PATS$GL~BUF _$1Z 
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PATEN 16-Sep-1984 00:40: VAX-11 Bliss-32 V4.0-742 Page 53 PA] 
y04e060 aR oats 1 90:29:43 DISKSVMSMASTER = CPATCH, SRCIJPATENC.B32: 1° OF v4 
07 55 €9 00408 BLBC. —._«aR'S,,_ 718 : 3272 a 
00000099" cf 1 bs 28 BISB2 #1 BYTES_IN_OPRND : 3674 3 4 
j tt a i mae | 
00000000' cE as 41 B1SB2 45 BYTES_IN_OPRND t 3277 3 4 
4c S&F 91 OO41F 728: CHPB HAR, #76 ; 3278 i 
00000000° cr 04 as 04 3 BISB2 #4, BYTE $_IN_OPRND : 3280 3 4 
49 F be 4 be f 73$: Hag HAR, # ; 3281 : < 
00000000" EF 10 AC j 0432 BISL2 OPR_CONTEXT, BYTES JN_OPRND > 3284 i 
000000006: ‘EF 04 : 04 A BISB2 #4, PATSGL_CONTEXT? + 3285 'e 
FBFD 441 74$: BRW 2$ : 3287 34 
18 AE B4 00444 75$:  CLRW SYMBOL_DESC ; 3298 a4 
1c OAL 34 AE i 00447 MOVAB SYMBOL BUF, SYMBOL_DESC+4 : ¢99 34 
20 AE 0200 8F BO 0044 MOVW #512, SYMBOL_DESC+8 : 3300 2 4 
18 AE OF 0049 PUSHAB SYMBOL_DESC : 3301 34 
F4 AD OF 0045 PUSHAB LEX_STG_DESC : 34 
00000000v_ EF 2 £B 00458 CALLS #2, ADDLEX_T_OPRND : x; 
E 7C 0045F CLRO = = (§P) : 3302 3 
F4 =AD «OF 00461 PUSHAB LEX_StG DESC : 34 
00000000G_ EF 03 FB Been CALLS #3, PATSBUILD_PATH : 3 4 
10 50 £8 00468 BLBS : 24 
00608112 BF DD 0046 PUSHL #7176466 > 3304 + 
000000006 00 01 FB 00474 CALLS #1, LIBSSIGNAL : 34 
O0OA4 31 00478 76$:  BRW $ : 34 
04 =A 00 BE dO 00476 77$: MOVL  @0(SP), INS_PTR + 3313 34 
5 04 BE 90 00483 78$:  MOVB  a@INS_PTR, NEXT_CHAR + 3315 3 4 
04 AE D6 00487 INCL _INS : 3 
20 53 91 0048A CMPB = NEXT_CHAR, #32 + 3316 24 
F4 13 0048D BEQL : 24 
09 53 91 0048F CMPB NEXT_CHAR, #9 $ 3 4 
ai 13 00492 BEQL : 3 
5c oF 3 91 00494 CMPB  =NEXT_CHAR, #92 : 3317 * 
E1 12 00498 BNEQ 6$ : 3 | 
F4 AD B4 OO49A CLRW LEX_STG_DESC : 3334 24 
F8 AD FF74 CD 9E 0049D MOVAB LEX"BUF; LEX_STG_DESC+4 : 3335 ar 
FC AD 19 80 04A3 MOVW #25, STG_DEST+8 : 3336 Par 
F4 AD F 4A7 PUSHAB LEX_ BESC ; 3337 : 4 
5B DD OO4AA PUSHL R : 34 
00000000V_ EF g FB OO4A CALLS #2, MAR_GET_LEX ; 3 
55 DO 0048 MOV RO, TEMP TOREN : 2 
3E 55 «D1 00486 CMPL §_TEMP_TOKEN, #62 : 24 
32 12 00489 BNEQ : 24 
18 AE 9F 0048B PUSHAB SYMBOL_DESC > 3344 3 
F4 AD OF O04BE PUSHAB LEX_ST_DESC : 2 
00000000v_ EF 02 FB 004C1 CALLS #2, ADD"LEX_T_OPRND ; 2 
F4 AD BA 4C8 CLRW = LEX_STG" > 3345 3 | 
F8 AD FF74 CD : 4CB MOVAB LEX"BUF> LEX_STG DESC +4 > 3346 3 
FC AD 19 : 401 MOVW #257 LEX_STG~DESC+ ; 334? 3 
F4 AD 9F 00405 PUSHAB LEX_STG_BESC ; 3348 3 | 
5B DD 00408 PUSHL R11 : | 3 | 
00000000V EF FB O4DA CALLS +e MAR_GET_LEX : ; 
5 D 4E1 MOVL RO, TEMP _TOREN ; : 
00000047 BF D1 O04E4 CMPL §_ TEMP_TOKEN, #71 ; | ; 
09 13 004EB BEQL «Ss «8 ; : 
00608203 8F DD O04ED 79$:  PUSHL #7176707 > 3352. ; 
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| 
PATEN Ib-5¢ -1984 00:40: VAY=11 Bliss-32 V4.0-742 P 4 
v04~000 1 = 00-19 4 99:29:43 DISKSVMSMASTER=CPATCH. SRCIPATENC.B32:1" aot 
017A 31 AF BRW 100$ ; 
re Ae OOF BOER et Stee ite’ ore esc . ers 
000000006 a4 3 FB 508 CALLS #8 “PATSBUILD_PATH F 
00608112 &F DD Tn Eee + 3358. 
000000006 00 1 FB CALLS LIB$SIGNAL : | 
18 AE 9F 00512 818 PUSHAB SYMBOL_DESC ; 3359, 
F4 =AD «OF 0051 PUSHAB LEX_STG_DESC $ 
00000000V_ EF eefe £8 O21 CALLS , § ADD-LEX_T_OPRND : _ 
18 Ae OF 0522 828: PUSHAB SYMBOL DESC : 3397 | 
000000006 EF or FB 005 CALLS #1, PATSFIND_SYM : 
' 36 13 basi - mae + 3372. 
55 000000006 EF D0 00531 MOVL § PATSGL_SYMTBPTR, TEMP_SYMTB_PTR ; 3383 | 
000000006 EF 000000006 EF D0 005 : MOVL _ PATSGL“OLDLABLS, PATSGL_SYMTBPTR ; 3382 
18 AE 9F 0054 PUSHAB SYMBOL : 3383) 
000000006 EF gi FB 00946 CALLS , PATSF IND_SYM : 
000000006 _ EF 55 (0 90590 MOVL TEMP _SYMTB_PTR, PATSGL_SYMTBPTR + 3384 
vf Pe Abeey Oe Geahugr _ 
we 08 03 bo 00860 ROVE aa Stara CP aWALUE i 3388] 
000000006 EF 00 FB boses CALLS #0, PATSDELETE_PATH : 3396 
11 11 0056A BRB 85$ : 3386 
7E D4 0056C 84$:  CLRL  -(SP) : 3399 
18 ome Be Beet PUSHAB TERE, VALUE Bien] 
000000006 EF 68 FB 00873 CALLS #3, PATSBUILD_PATH ; | 
53 29 DO OOS7A MOVL RO, STATUS ; 
09 53 €9 00570 85$: BLBC STATUS, 86$ > 3400 
03 53 D1 00580 CMPL TATUS, #3 : 3401 
4D 12 0058 BNEQ 9 : 
- Oe AS EE foes gos: creo. en*starpegee’ os : 3420 
FB AD FF?4 «CD O9E 0038 " MOVAB_ - LEXTBUF>_LEX_STG_DESC+4 : 3421 
F4 AD OF 005 é PUSHAB LEX~STG_ DESC : 3422 | 
SB DD 059 PUSHL : 
pee B58 See ALS a Rae he 7 
00000045 aF 3A D4 Obl CMPL TOKEN_TYPE, #69 : 3423 
00000000" EF O8 ig nay BISB2 #8, BYTES_IN_OPRND > 3425 | 
00000063 = BF A 01 00581 87$:  CMPL  #$TOKEN_TYPE, #99 ; 3427) 
09 13 00588 BEQL 5 : | 
00000041 8F 3A pi O5BA CMPL TOKEN. TYPE. #65 
67 00 BE 10 AE AS O33 88$:  SUBW3 INS_START_PTR, @0(SP), (R7) : 3429 
04 =A 10 AE D O9¢ MOVL INS"START PTR. 4(R7) : 3430 
50 0 v0 aC MOVL #3,~RO ; 3431 | 
39 f 0302 89$: rst ¢ R_OPERATOR : 3437 
58 14 ht 8 0506 MOVL —TEMP_VALUE, CUR_VALUE > 3439 
0084 31 005DA BRW 98$ : 


15 
PATEN 1$- $ep-1984 VAX=11 $-32 V4.0-742 age 55) 
YO4-050 14- 73071382 99: 23: }3 DISKSVMSMASTER: CPATCH. SRCJPATENC. B32. 4 | 
4 1 D0 00500 90$: MOVL LAG 2 3443) 
FFFFFFFF F ? i E CPL tUR OPERATOR, W-1 + 3444) 
. | 
a 16 AE OD 9 MOVL § TEMP_VALUE, CUR_VALUE + 3446 
0000004c &F 5 D| He 918: CPL R_OPERATOR, #76 ; 149. 
58 14 AE tb 3F6 ADDL2 TEMP_VALUE, CUR_VALUE ; 
00000046 = BF 39 D| c08 92$: CMPL R_OPERATOR, #70 : 3450. 
58 14 «OA (3 060 SUBL2 TEMP VALUE , CUR_ VALUE : | 
3 1 9609 BRB ; 
3¢ D1 OB 93S: CMPL UR_OPERATOR, #60 ; 3451) 
06 12 960E BNEQ 4 : | 
58 14 AE C4 0061 MULL2 TEMP. VALUE. CUR_VALUE ; 
45 11 00614 BRB F 
00000052 BF 59 D1 00616 948: CMPL §_CUR_OPERATOR, #82 ; 3452 | 
06 12 00610 BNEQ : 
58 14 AE C6 O061F DIVL2 TEMP_VALUE, CUR_VALUE : 
36 11 00623 BRB 7 : | 
3D 59 D1 00625 95S: CMPL CUR_OPERATOR, #61 + 3453) 
07 iF 00628 BNEQ : 
58 58 14 Ae i i , aoe TEMP_VALUE, CUR_VALUE, CUR_VALUE : | 
00000044 8F $6 D1 00631 96$: CMPL § CUR_OPERATOR, #68 + 3454 
21 13 00638 BEOQL ; 
FFFFFFFF © 8F 9 D1 0063A CMPL CUR_OPERATOR, #-1 : 3457 
27 12 00641 BNEQ 99% F 
54 D4 00643 CLRL FLAG : 3458) 
58 58 CE 00645 MNEGL VALUE » CUR_VALUE : 3459 
50 90 AD 9SE 00648 MOVAB EXPR’S , RO” : 3460 
50 56 D1 0064C CMPL ST ACR PTR RO : 
OA 13 0064F BEQL =s(o9 F 
59 76 98 00651 CVTBL <(STACK_PTR), CUR_OPERATOR > 3464 
146 AE 58 00 00654 MOVL CUR_VALOE, TEMP VALU : 3465 
58 76 DO 00658 MOV =(STACK Pfr), COR_VALUE : 3466 
03 54 8 90658 97$: BLBS FLAG ACSas > 3475 
FF7C 31 0065€ BRW 90$ ° ; 
59 D4 00661 988: CLRL CUR -OPERATOR : 3476 
08 AE 01 bo 00663 MOVL #1, NUMBER_FLAG : 3477 
F907 31 0066 BRW : 3217 
006D81FB 8F ODD O066A 99$: PUSHL #7176699 : 3483 
000000006 00 01 FB 006 Q 100$: CALLS #1, LIBSSIGNAL ; 
50 02 b0 067 MOVL #2, RO > 3484 
4 0067A RET F 
50 D4 0067B 101$: CLRL RO : 3489 
04 00670 RET : 


; Routine Size: 1662 bytes, Routine Base: _PATSCODE + 0607 
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type address tng. 0 => do not allow branch operands. 
OUT_PC_PTR -A pointer to the pointer that we maintain that 
indicates where the next byte of instruction we 
enerate will go. This is used to calculate 


C-displacement values. 


a9 39 ROUTINE ENC_OPERAND ( INST_STG_DESC, OUT_BYTE_STREAM, PC_REL_CONTEXT, BRANCH_SIZE, OUT_PC_PTR, OPINFO_PTR ) | 
29 3 '++ 

Se) a7 Functional Description: 

He 95 Scan (parse, whatever) the string that supposedly 

S2e 38 represents one operand reference, and come up 

$2? 44 with the machine code representation for it. 

837 Inputs: | 

859 INST_STG_DESC <A pointer to the counted string that 

860 contains the operand reference. 
861 OUT_BYTE_STREAM =A pointer to the output byte stream pointer 
B66 that is being maintained by the routine 
86 we are called by. 

864 PC_REL_CONTEXT <The number of bytes that we should encode 
865 into the output byte stream to correspond to 
866 a PC-relative (Literal) operand. 

867 BRANCH_SIZE -The number of bytes that we should allow 
868 if the current operand tries to use branch 


00.09 09 C9 C9 CD CD CO 
SANNA NNO 
OUFrWN—O”0 


877 None. 

878 

th Outputs: 

881 The bytes that correspond to the operand reference are 


| 
stuffed into the vector pointed to by the pointer | 
contained in the location pointed to by OUT_BYTE_STREAM. 
This pointer is also updated so that it points to the 
next vacant byte position. 
| 
j 
| 
| 


Routine Value: 


TRUE = If successfully encoded. 
PATS$K_BR_RANGE - If branch offset exceeds range allowed for instruction. 
SIGNALS Tf an error is found and returns FALSE for the caller to 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
] 
i 
i 
i 
i 
i 
i 
Implicit Inputs: 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
output the instruction. 
Side Effects: 
None. 


BEGIN 
MAP a 
'e¢ 
! The reason why the following 2 are REFs to LONGs instead of to BYTEs 


! is because they are actually REF REF VECTORL,BYTE), which we can onl 
' achieve (so far!?) via a REF LONG. Even this only works because LON 
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14-Sep-1 
} happens to be the size of a REF BYTE (or of any REF, for that matter). 


OPINFO_PTR : REF BLOCKCOPTSIZE., BYTE), 
OUT_PC“PTR : REF VECTOR LONG . 
OUT“BYTE_STREAM : REF VECTOR Consa, 
INST_STG-DESC : , BYTE; 


ni. Bvicd, 


mz 


TOKEN_LONG = TOKEN_STRING : VECTORC,LONG]; 


144 

! This macro is used to call the routine to check for indexing and 

' actually output the bytes of ‘instruction’ into the instruction 

' stream. The reason why we use this macro is because it inserts the 
} first 2 parameters for us, (we may Later use GLOBALs for this), 


! and because we may later have to make the control string parameter a 


een 
OUT_CODE ( CTRL_STRING ) = 


BEGIN 
IF (NOT INST_OUTPUT ( oe ae STREAM, 


:0 
“INST _STG_DESC, 
CTRL_STRING, 

- YREMAINING 


RETURN FALSE; 


THEN 


lee 
How we usually make up the dominant mode addressing byte. 


MAKE_A_MODE ( DMODE ) = 
( (DMODE * 4) OR .TOKEN_STRINGCO]) 


'e¢ 
} This macro creates the dominant mode for PC addressing. 


MAKE_PC_MODE ( DMODE ) = 
( (DMODE *4) OR PC_REG ) 


+ 
Fetch the first token from the instruction string, and take action depending 


4 Page 57. 
DISKSVMSMASTER: CPATCH. SRCJPATENC.832;1 (8) | 


n 
' counted string if we find that 4 characters (a lenquera? are not enough. 


F 15 
16-Se 
14-Se 


+e p 
vO4 p-1984 DISKSVMSMASTER: CPATCH.SRCJPATENC.832 
! on it. If the first token is an ‘at’ sign, simply set a flag for Later 


' reference, extract the next token, and continue on. 


$2 


3 7 

3 7 eit 

: 1964 6 $ l—o 

; 1965 60 AT_FLAG = FALSE; 

; 1208 ops OUT_BYTE_PTR = .OUT BYTE STREAMCO]; 

: 1300 on} an ee we = GET_NERT_TOKEN(. INST_STG_DESC, TOKEN_STRING)) EQL AT_SIGN_TOKEN) 
>; 1969 611 BEGIN 

; 1970 ois AT_FLAG = TRUE; 

; 1971 61 TOREN_TYPE = GET_NEXT_TOKEN(.INST_STG_DESC, TOKEN_STRING) ; 

3 1376 614 END; 

3 197 615 

3: 1974 616 !++ 

; 1975 617 ! Enforce branch-type syntax only when a branch operand 

3 1378 213 is expected, and vice versa. 

; 1978 620 IF (.TOKEN_TYPE NEQ BRANCH_TOKEN) 

; 1979 621 THEN 

; 1980 6 § IF (.BRANCH_SIZE NEQ 0) 

; 1981 6 THEN 

3 1oSe $e 4 BEGIN 

3; 198 625 SIGNAL (PAT$_NOBRANCH+MSGSK_INFO); ! "Branch Operand Expected’ error. 
> 1984 # $ RETURN(FALSE); 

3 bs F ? END; 

: 1987 3699 SELECTONE .TOKEN_TYPE OF 

BB ORR é 

; ib a O38 CREGISTER_TOKEN): 

; 1998 634 14+ 

3; 199 635 ! The operand is Rn, where ‘'n* was returned in the TOKEN_STRING. 
3 1994 636 ! Qutput the proper addressing mode byte, and increment fhe 

; 1995 637 ! instruction stream pointer. Note that indexing is not allowed 
3; 1996 638 ' to follow REGISTER. Neither is the old MACRO11 notion of @Rx. 
: 1997 3639 leo 

; 1998 or BEGIN 

: 1999 641 IF .AT_FLAG 

; 2000 Hak THEN 

3; 2001 643 4 BEGIN : ss 
5 a4 3644 4 SIGNAL (PAT$_OPSYNTAX*MSGS$K_INFO) ; ! "@Rx not equivalent to (Rx)"’ error. 
; 200 645 4 RETURN(FALSE); 

: 2004 646 4 END 

3 $0? 647 ; ELSE 

; 648 OUT_CODE ( "NB, (REGISTER_AMODE*4) OR .TOKEN_STRING(O] ); 
; 2007 649 END; 

; 2008 650 

; 2009 651 CABS_LIT_TOKEN): 

: 2010 O36 Te+ : 

: 2011 65 ! This is either ‘short literal’, ‘PC-Relative Literal", or 

3 Org 54 ' Absolute addressing, depending on whether the string began 

3; 201 655 ' with ‘a° or not, and on the number of bits needed to encode 

3 ate $26 the number. 

: Ot 658 BEGIN 

3 201 659 IF .AT_FLAG 

; 2018 660 THEN 
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! Absolute addressing is actually a PC-relative 
! mode with eprere context. _Note that this 

! one may be followed by C Rx J, which means 
that we have indexing. 


OUT_CODE( 'YBD" 
MAKE PC_MODE(AT_PC_REL_MODE), 
A_LONGWORD, 

TOKEN_STRING) 


ss-32 V4.0- 
STER: CPATCH 


144 

: This is an immediate —— If it will fit into 6 

! bits, generate ‘short literal’ addressing, otherwise 

' generate a PC-relative (immediate) mode. The check 

' is further qualified however, for instructions which 

! require greater than a byte for immediate operands in 
} the instruction stream. 


a GTRU 63) OR .PATSGL_CONTEXTCI_HAT_SEEN) 
BEGIN 
++ 
' The Literal is too big for a 6-bit field or 
! a byte context is called for with I*#literal. 
! Therefore use a PC-relative mode and insert 
! the Literal into the instruction stream. 
! Unfortunately, the number of bits to use is 
! NOT a function of how ~ 9 = the Literal is, 
!' instead this is dictated the so-called 
! *context’' of this instruction, 
} This ‘context’ is evidenced via the I* operator. 
IF (.PC_REL_CONTEXT GTR A_LONGWORD) 
THEN 
BEGIN 
ee 
! QUADWord Literals not pueper ted. 
! GET_NEXT_TOKEN (i.e. PATSRADX_CONVRT) 


' would have to be changed to insert 8 
bytes into TOKEN_STRING. 


SIGNAL (PAT$_NOTDONE+MSGS$K_INFO); 
RETURN(FALSED; 


lee 

' See if truncation will occur by checking 

' on whether the longword which the number is 

! taken from is different from the number as : 
extracted by the hardware - ie, with sign extension. 


iF (TOKEN LONGCO] NEQ 


) 
CIPATENC.B32: 1° 


> CTOKER_STRINGLOJ)<O, .PC_REL_CONTEXT*BITS_PER_BYTE, 1>) 


! The following code may be eliminated 
! when RADX_CONVRT takes the Length into 
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rererorororerororurororurunon 
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16-Sep-1984 00:40:15 VAX=11_BLiss-32_v4.0-742 
\e-$ep-1986 12:50:32 DI SKSVMSMASTERS PATCH. 

' 
' 


' account. For now a further check is 
made to see if the bits discarded 
simply weren't given. 


INCR I FROM .PC_REL_CONTEXT TO LONG_LENGTH -1 
IF _(.TOKEN_STRINGC.1] NEQ 0) 
THEN 


BEGIN 
SIGNAL (PAT$_NUMTRUNC) ; 
EXITLOOP; 
ee 
! SRM says that #constant(Rx] is 
} pe however, to be Like MARS, 
} PATCH generates an error for it. 


OUT_CODE( ‘NBD’, 
MAKE_PC_MODE( PC_REL_MODE ), 
-PC_REL_CONTEXT, 

an TOKEN_STRING) ; 


lee 

' Short Literals have to fit in 6 bits. 

They also can not be indexed. 
i OUT_CODE( "NB", MAKE_A_MODE( SHORT_LIT_AMODE ) ); 
Reset the context flag whether or not it has been set previously. 


PATSGL_CONTEXTLI_WAT_SEEN] = FALSE: 


ELSE 


CBRANCH_TOKEN): ' For branch type operand addressin 
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! and for assumed PC-displacement oliressine. 
ACTUAL_OPRND = TOKEN_STRINGC1] : VECTORC,LONG); 


le4 

! Check the flag passed in byte 0 of the token string. A zero 
! here means that the associated number is a branch operand 

! exactly what is to be placed in the instruction. A 1 here 

! means that the number must be made into a PC-relative offset 
- ie, it is absolute, and that it may or may not be a branch 


IF _(.TOKEN_STRINGLO3) AND (.OPINFO_PTRCOP_NUMOPS] NEQ ASM_DIR_OP) 
ecg 
i To calculate the PC-relative value, start with a 
' pointer to where the actual operand will be placed. 


' add in the length of the operand because that wil 
! be the VAX PC after it has been used to 
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Nh 9 Ifseo-tg 1 99:39:53 OES SUmemaSTeRscPatcn. ScJPATENC.B3204 3) 
; nd, and then subyract | 
: 313 ae 4 i on that the sbsotute (virtual) destination. | 
: $1 58 4 ! This gives the number of bytes which have to be | 
; i 3 778 4 i added to the PC to get the address of the destination | 
; 21 AcT * ] = (.OUT_PC_PTREO] + .BRANCH_SIZE); | 
: ACTUAL_OPRNDCO] = .ACTUAL_OPRNDCO -OUT_PC_ § 
$139 rey 8 IF BRANCH, SIZE eal 0) | 
; 2140 7 ¢ 4 mm 
; 2141 783 4 H_SIZE is not the right size 
128 ras i lot displacement) to add, assume and use 
; 214 785 4 i LONGWORD displacement. Take into consideration 
2 9156 rm i the fact that there will be a I-byte MODE 
2 9145 ef ! field before the displacement, and perhaps 
; 103 res ¢ ' also a i-byte index field, as well as the 
: es 4 4 ; displacement itself. 
i 2149 791 ACT = ,ACTUAL_OPRND(O] 
? 5150 798 4 ACTUAL_OPRND(O) * Tete + ALBYTE + 
: gi! Mr 2 wr ASSUME _AT~PC(. INST_STG_DESC)); 
: 215 794 & ne 
; 138 $732 END; 
; 2154 
; 2195 He it - the user trying to branch further 
/ 13 +99 ox she Seeienston tan teen First, check this is a branch. | 
oe lee 
3 $128 oot if (.BRANCH_SIZE NEQ 0) | 
: 2159 801 4 | 
: 2160 802 3 THEN ‘ | 
: Bee 30s ee Pt 9 | 
: i hen all bits in the unused part o 
: 168 805 2 the LONG uk os on using to contain the branch | 
3 2164 380 2 i operand are not the same as the ‘sign’ bit of the 
3 $165 360 i branch operand. We find this out by extracting the 
+ 9166 i i branch operand as the hardware would Cie, with sign 
: $iee 3810 4 i extension), and then comparing to see if this is the 
; 169 ait 2 j pane os unee MMeesticss tkere ta no such thing as 
’ ' . ¥ H 
; 2170 3812 2 i the asin bite "Therefore the test is made with a | 
; 13 381 4 ' zero extend extraction. 
a lea 
; 178 381 : if (.OPINFO_PTRCOP_NUMOPS] NEQ ASM_DIR_OP) 
3 2175 817 4 THEN i 
: 217 18 5 BEG! x 
ag RR TC Actua, OPO ME seancn_S126sB17S_P68_BYTE, > 
: THEN 
3: 2179 1 , 
; 181 g i Branching Out-of-Range” error. 
. lee 
183 : 5 é BEGIN R_DISPL = .ACTUAL_OPRND(O); 
> 2184 8 $ 6 OUT CODEC *ND® .BRANCH_SIZE, ACTUAL_OPRNDLO}); 
: ' ; : 8 ° RE TORN(PATSK_BR_RANGE)) 
é ND; 
: 5188 ee END 
> 2189 831 4 ELSE 
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BEGIN 
IF (.ACTUAL_OPRNDCO) NEQ 


-74 Pp 
W SRCIPATENC.B3203°" (& 


. (RCTUAL_OPRND)<0,.BRANCH_SIZE*BITS_PER_BYTE, 0>) 


THEN 


SIGNAL (PAT$_NUMTRUNC) ; 
END; 


'e4 
' Branch operand is OK. Output 
! the code and don't allow indexing. 


QUT _CODE(*ND*, «BRANCH_SIZE, ACTUAL_OPRNDCO)); 


ELSE 

og 
! P€-displacement operands are similar at this point 
! except that indexing must be allowed and longword 
! (deferred) displacement. This code is re same as 
! that at the end of case C(BYTE_VAL_TOKEN], etc, below; 
! PATCH retys on the compiler to combine the code rather 
} than putting it into a special-purpose routine. 
LEXEME_BUFFERCO] = PC_REG; 
TOKEN_STRINGCO) = A_LONGWORD; 
MODE = DISP_LONG_AMODE; 
IF .AT_FLAG 
THEN 

MODE = .MODE +1; 
t+ 
! Pass back the single mode byte followed by the counted 
byte stream calculated. Indexing is allowed in all cases. 
OUT_CODE( ‘YBC', 

((.MODE*4) OR .LEXEME_BUFFERCOJ), 
TOKEN_STRING) ; 
END; 
END; 


CMINUS_TOKEN): 
BEGIN 


wd 
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44 
! This must be auto decrement, ‘-(Rn)', or 
; auto decrement indexed, *-(Rn)CRx]'. 


iF (GET_NEXT_TOKEN(..INST_ST6_DESC, TOKEN_STRING) NEQ AT_REG_TOKEN) 


eee ee 


BEGIN 
SIGNAL (PATS_OPSYNTAX+MSGSK_INFO); ' (Rn) required for auto-decrement 


RETURN(FALSE) ; 
lee 
Check for indexing and output the instruction. 
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47 9 IF_.AT_FLAG 
re 0 THEN 
4 91 BEGIN 
0 9 '44 
1 7 ‘Deferred Auto Decrement Not Allowed’ error. 
§ 95 SIGNAL (PATS_OPSYNTAX*+MSGS$K_INFO); 


RETURN(FALSE); 
ND 


5 34 ELSE 

5 9 OUT_CODE("YB*, MAKE_A_MODE(AUTO_DEC_AMODE)); 
58 44! END; 

59 9 

60 90 

61 90 CAT_REG_TOKEN): 

o¢ 904 BEGIN 

6 905 

64 4 LOCAL 

: baal re 

eF 3 

68 91 

69 911 
270 ! "(reg)+*, auto increment deferred, ‘a(reg)+", or any one of 


! these plus indexing. 


gre ~_ 
7 = REG_DEF _AMODE; 

'e¢ 

A following '+" indicates one of the auto inc modes. 
INPUT_PTR = .INST_STG DESC Cdsc$a_pointer]; 

CHAR = CHSRCHAR (-INPOT_PTR); 

IF (.CHAR EQL ‘+") 

THEN 

BEGIN 

oe 

! Update the counted-string pointer, 

' and decide which auto inc mode we have. 
MODE = AUTO_INC_AMODE; 

IF .AT_FLAG 

THEN 
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! This form is either register deferred, "(reg)", auto increment, 
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MODE = .MODE +1; 
! MODE = AUTO_INC DEF_AMODE; ! Generates Longer code. 
9 INST_STG_DESC fdsc$a_Bointer = CHSPLUS (.INPUT PTR, 1); 
; pat 5t6_ Dee DSCS$W-LENGTH] = .INST_STG_DESC CBSCS$W_LENGTH] - 1; 
93 ELSE 
938 IF .AT_FLAG 
939 THEN 
940 GIN 
941 SIGNAL (PAT$_OPSYNTAX+MSGSK_INFO);! ‘‘@(Rn) Not Supported’’ error. 
oe§ RETURN(FALSE); 
94 END; 
944 
945 !e+ 


a = Y 
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v04-000 1 730071382 99793:43 D1ISKSVMSMASTER: PATCH. SRCJPATENC.B32: 1" (8) 

; Re Bes :_In all cases PATCH allows indexing. 
: Bee OUT_CODE( "YB", MAKE_A_MODE( .MODE ) ); 

; 230 94 END; 

; 2508 950 

; 2309 951 CBYTE_VAL_TOKEN, 

: 10 226 WORD_VAL_TOKEN | 
> 2311 95 LONG-VAL~ TOKENS: 

: ig 954 BEGIN 

3: 231 955 BIND 

3: 2314 328 ACTUAL_OPRND = TOKEN_STRINGC1] : VECTORC,LONG); 

> 2315 95 LOCAL 
; 16 958 INDEXING; | 
; 231 959 

; 2318 960 !+4 

3 $38 30) Displacement or Deferred Displacement addressing. 

: 351 368 1 Here PATCH must ‘look ahead’ to see if an actual register to 

3 $56 964 ! displace off has been given. If not, assume ‘'(PC)'* and 

3 ¢3 965 ! treat the displacement as a virtual address, calculating what 

: 2324 966 ! real displacement must be used given that the PC is the same 

3 ; 5 + 4 ! as the address into which the instruction is being deposited. 

; 307 969 4 IF (CINDEXING = ASSUME_AT_PC(.INST_STG_DESC)) GEQ 0) 

3 2328 3970 3 THEN 

3; 2329 971 4 BEGIN 

: 2350 are 4 ++ 

3; 2331 973 4 ! Ok to assume PC-displacement mode. This means that 

3 $36 3974 4 ! the given Ctepi acenent is the virtual address to be 

; $33 3952 4 ! reached, so this field must be converted to a real 

3 2334 976 4 ! displacement. To do this PATCH calculates what the PC 

3; 2335 3977 4 ! will be after it has been used to pick up the 

; $339 $078 4 ! displacement to find out how much this displacement 

; 2337 979 4 ' must be. The INDEXING value returnea above indicates 

; 395 44 : } how many bytes will be output due to indexed addressing. 

3 2340 aes & ACTUAL_OPRNDCO) = .ACTUAL_OPRND(0J 

3; 2341 983 4 - (.OUT_PC_PTRCOJ + .TOKEN_STRINGCO) + A_BYTE + .INDEXING); 

; z0§ 984 4 

3; 234 3985 4 '++ : F , 

: 2344 3986 4 ! Also fake the user having said ‘(PC)’ 

3; 2345 987 4&4 ' b Fitting in LEXEME_BUFFER with the 

: a8 +3 ? right AT_REGister name. 

3 8 990 4 LEXEME_BUFFERCO] = PC_REG; 

3 9 991 4 

3 2350 336 4 ++ 

3 2351 993 4 ! Check for trying to branch too far, Here, the check 

; 326 994 4 ! must be ensuring that the unused bits in the LONG | 

5 $2 995 4 > version of ACTUAL_OPRND are the same as the A bit 
3 2354 396 4 ! of the actual displacement part of ACTUAL_OPRND. 
3; 2355 44 4 lee 
; 26 8 4 REPEAT 
: 235 999 5 

3; 2358 4000 6 IF (.ACTUAL_OPRNDCO) NEQ 

3 2359 4001 : . (ACTUAC_OPRND)<0,. TOKEN_STRINGCOJ*BITS_PER_BYTE, 1>) 

3; 2360 4002 EN 
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V045000 1e8eb-198G 13:82:32 DISKSUMEMASTERSCPATCH. SACIPATENC.83203°" (83. 
; 1 4003 5 IF (.PATSGL_CONTEXTCINST_SUBSTJ) AND | 
; ¢ 4004 2 (. TOKEN_STRINGCOJ LSS” LONG_LENGTH) 
2008 THEN BEGIN | 
; 5 2007 é ACTUAL_OPRNDCO] = .ACTUAL_OPRNDCOJ] + .TOKEN_STRINGCOJ; 
; 96 £308 (. TOKEN TYPE EQL BYTE_VAL_TOKEN) 
: 400 § EN 
: 8 4010 BEGIN 
; 9 4011 7 TOKEN_STRINGCO] = WORD_LENGTH; 
s 39 oolg 7 TOKEN_TYPE = WORD_VAL_TOKEN; 
$35) tole 6 ae | 
3 | 
: 38 2018 : BEGIN | 
: 2374 s0i8 7 TOKEN_STRINGCO] = LONG_LENGTH; 
3 fe $32 f TOKEN_TYPE = LONG_VAL_TOKEN; 
; 377 4019 6 ACTUAL_OPRNDCO] = .ACTUAL_OPRNDLO] - .TOKEN_STRINGCO); 
; 2378 ret 3 g END 
3 2379 4021 ELSE 
; 2380 $356 6 BEGIN 
; $35) rh 6 SIGNAL (PAT$_BRTOOFAR+MSGSK_INFO, 1, .ACTUAL_OPRNDCO)); 
; 238 4024 6 EXITLOOP; 
; 238 4025 9 END 
; Seee 40 $ ELSE 
3 2385 40 5 EXITLOOP; | 
; 2386 4028 4 END; 
3; 2387 4029 4 END 
3; 2388 4030 3 ELSE 
; 2389 4031 4 BEGIN 
3 2390 $036 4 '++ 
; 2391 4035 4 ! Check that the displacement is followed 
: $306 t0ee ? } by a register reference in parenthesis. 
3 2394 4036 5 IF (GET_NEXT_TOKEN(.INST_STG_DESC, LEXEME_BUFFER) NEQ AT_REG_TOKEN) 
3; 2395 4037 4 THEN 
3; 2396 4038 5 GIN Me 
3; 2397 4039 5 SIGNAL (PATS_OPSYNTAX+MSGS$K_INFO); ! ‘Must Displace off a Reg’’ error. 
; 2398 4040 5 RETURN(FALSE); 
; 2399 4041 4 END; 
; 2400 4042 4 
: 2401 40435 4 ++ ‘ 
3; 240 4044 4 ' Check for displacement truncation and produce a 
: 240 4045 4 ! message if this will occur. Here the check is based 
; 2404 1848 4 ! on the sign bit of the actual displacement, as done 
: 2405 4047 4 ' to check this above. Here, however, check whether or 
: 2406 rit 4 ' not the upper bits of the given displacement are all 
3 2407 4049 4 ! 0, and ‘forgive’ if this is true. This nonsense is 
3; 2408 4050 4 } necessary to avoid comp gining when one says 
3; 2409 4051 4 ' "B*95(reg)"’. Here the 95 is taken as a negative 
3; 2410 $036 4 ' number rather than assuming a large positive one was 
3: 2411 4055 4 ! intended. 
: aig 4054 4 i-- 
3; 241 4055 5 IF (.ACTUAL_OPRNDCO] NEQ | 
3: 2414 $028 5 . (ACTUAC_OPRND)<0,. TOKEN_STRINGCOJ*BITS_PER_BYTE, 1 >) 
3: 2415 4057 4 THEN | 
: oie $028 & ++ 7 Haga hes 
3; 241 4059 4 ! When RADX_CONVRT is changed to take size into | 
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} secouns (ie, to complain if the number is too | 
' big), just produce a Soonege at this point. 
! For now, however, ignore it if the unused 
bytes are all zero. 
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ACTUAL_BYTES = ACTUAL_OPRNDCO) : VECTORC,BYTEI; 
INCR I FROM .TOKEN_STRINGCOJ TO LONG_LENGTH -1 

1F( ACTUAL _BYTESC.1] NEQ 0) 

THEN 


BEGIN ’ 
REPEAT 
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BEGIN 
IF (.ACTUAL_OPRNDCO] NEQ 
4g’ (ACTUAL OPRND) <0, . TOKEN_ STRINGLOI*B1TS_PER_BYTE 


IF (.PATSGL_CONTEXTCINST_SUBSTJ) AND 
at ale LSS LONG_LENGTH) 


ete 
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BEGIN 
ae TUS oreeeted -ACTUAL_OPRNDCO] + 


44 4085 KEN_TYPE EQL BYTE_VAL_TOKEN) 


BEGIN 

TOKEN_STRINGCO] = WORD_LENGT 

TOKE TYPE = WORD_VAL_TOKEN; 
ELSE 


BEGIN 
TOKEN_STRINGCO] = LONG_LENGT 
TOKEN_TYPE = LONG_VAL_TOKEN; 


END; 
UAL_OPRNDCO] = .ACTUAL_OPRND(O) - 
ELSE 


N 

AL(PATS_BRTOOFAR+MSGSK_INFO, 1, | 

LOOP; | 
| 


ELSE 
EXITLOOP; 


END 
EXITLOOP; 
END; 
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END; 
END; 
e+ 


Now calculate the right mode to use. The following code is 
extremely instruction-set dependent, and relies on the 
relative values of the various displacement modes. 
Essentially just start out with the lowest mode and keep 
emeronans ig the mode. This code is shorter but relies 

on the relationship of the modes. 
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: 2475 abt ; leo 

3; 247 4) MODE = DISP_BYTE_A 

3 247 411 IF (.TOKEN_TYPE ai “Byte _VAL_YOKEN) 
a - 

> 26 41 ; IF (TOKEN. TYPE CTR Eon VAL_TOKEN) 

: 2481 4) THEN 

: 26 4124 MODE = .MODE +2; 

> 26 4125 IF_.AT_FLAG 

: 2486 41 § THEN 

; 24685 41 MODE = .MODE +1; 

; c8$ 4) 4 

: 24 4) 'e¢ 

; 2488 4130 i Return the single mode byte followed by the ote byte 
3 re ay 1 is stream passed. Indexing is allowed in all cases 
3; 2491 P 41 ; ouT _CODE( ‘YBC', 

3; 269 P 41 ((. MODE*4) OR .LEXEME_BUFFER(O]), 

3; 249 4135 TOKEN. STRING); 

> 2496 4136 END; 

: 2495 tie 

; “36 4138 COTHERWISE): ' Error. 

; 269 4139 

3; 2498 4140 BEGIN 

; 2699 4141 SIGNAL (PATS OPSYNTAX+MSGSK _ INFO); ! "Operand Syntax"’ error. 
; 2500 rhb | RETURN(FALSE); 

; 2501 414 END; 

3 ane 4144 

; 250 4145 TES; 

: 2504 olee 

; 2505 414 '+¢ 

; 2506 4148 i Return a pointer to the counted string which contains the rest of the operand 
3; 2507 4149 i reference. 

3; 2508 4150 ten 

; 2509 4151 RETURN TRUE 

; 2510 4152 1 END; 


OFFC 00000 ENC_OPERAND: 
- WORD 


0 
0 

CALLS . GET_NEXT_ TOKEN 
6 MOVB : . TOKEN_TYPE 
CMPL RO, #61 


Save R2,R3,R4,R5, RG, R7,R8B,R9,R10,R11 : 3490 
58 F601 F Of 9002 MOVAB GET *NEXT TOKEN, R11 ; 
A 000064006 060 9€ 000 LIBSSIGNAL, R16 : 
39 0000006 EF 9€ 0000 MOVAB PATS$GL_ CONTEXT, R9 : 
8 00000000v EF 9€E 0001 MOVAB INST _OOTPUT, R& ; 
5E BC Ag 9E 0001C MOVAB 7$8(SP), SP ; 
57? 04 000 6 CLRL FLAG : 3607 
56 08 AC D9 00 MOVL OUT BYTE STREAM, R6 : 3608 
5 66 p 00 § MOVL (R6J, OUT BYTE_PTR ; 
28 AE 9F 000 PUSHAB Toe EN_ STRING : 3609 
53 4 ‘ 0 C MOVL ay STG_DESC, R3 : 
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1 
12 00038 BNEQ §=-*1$ ; 
57 gf 06 8 i MOVL #1, AT_FLAG ; 361 
28 OA F 4 PUSHAB TOKEN_STRING ; 3561 
53 0D 0004 PUSHL R : 
$8 Q FB 04 CALLS #2, ger NEXT_TOKEN : 
3 48 MOVB RO, TOKEN TYPE : 
Fo =soaBF rH rH] 1$: care TOKEN_TYPE, #244 : 3620 
10 aC p 9051 Ist RANCH_SIZE + 3622 
00608228 : pp 0036 PUSHL #7176747 + 3625 
fF? —soBF BO 005 2s: CMPB  —« TOKEN_TYPE, #247 : 3632 
i lg 006 BNEQ : 
03 7 0064 BLBC AT_FLAG, 3$ + 3641 
033F 31 00067 BRW : 
50 28 AE 9A 0006A 3S: MOVZBL TOKEN STRING, RO > 3648 
7E 50 00000050 = &F £9 006E BISL3 #80, RO, -(SP) ; 
7E 424E i C 00076 MOVZ2WL #16974, =(SP) : 
3 DD 00078 4$: PUSHL R : 
14 AC DD 00070 PUSHL OUT_PC_PTR : 
56 DD 00080 PUSHL : 
68 0S FB 00082 CALLS #5, INST_OUTPUT : 
031C 31 0008 BRW ? : 
8 BF 55 91 00088 5$: CMPB = TOKEN_TYPE, #248 > 3651 
03 13 0008C BEQL © 6$ ; 
0097 31 0008E BRW : 
11 57 £9 00091 68: BLBC AT FLAG, 7$ > 3659 
28 «AE 9F 00094 PUSHAB TOREN_STRING : 3670 
04 DD 00097 PUSHL : 
7E 9F 8F 9A 00099 MOVZBL #159, <(SP) ; 
00444259 8F DD 0009D PUSHL #4473433 : 
57 11 OO0A3 BRB 14 : | 
3F 28 AE D1 000A5 7$: CMPL §_TOKEN_LONG, #63 : 3680 
05 1A 000A9 BGTRU 8 : 
58 03 «Ad 02 €1 000AB BBC #2, PATSGL_CONTEXT+3, 15$ : 
04 Oc AC 01 00080 8$: CMPL  PC_REL_CONTEXT, #4 > 3694 
09 15 000B4 BLE 1 ; 
00608238 8F DD 00086 PUSHL #7176763 : 3703 
o2F9 1 OO0BC 9$: BRW 59$ : 
51 oc ac 03 78 OOOBF 10$: § ASHL #3, PC_REL_CONTEXT, R1 : 3714 
50 28 «AE 51 00 EE 000C4 EXTV #0. R1, TOREN STRING, RO : 
50 28 AE D1 OOOCA CMPL TOKEN_LONG, RO 3 
1¢ \3 9c BEQL ; 
52 oc ac 01 ¢3 0000 SUBL3 #1, PC_REL_CONTEXT, I : 3722 
11 11 0000 BRB ; 
28 AE42 93 00007 11$: TSTB TOKEN_STRINGCIJ : 3724 
0B 13 000DB BEQL 128 : 
00608023 8F DD 9900 PUSHL #7176227 : 372? 
6A 1 FB OOOE CALLS #1, LIBSSIGNAL : 
4 11 O0E6 BRB : 3726 
EB 52 3 F3 OOOE 128: AOBLEQ #3, I, 11$ : 1¢4 
8 AE 9F OOOEC 13$:  PUSHAB TOKEN STRING : 3739 
C AC DD OOEF PUSHL PC_REC_CONTEXT ; 
7E F 8F 9A 000F2 MOVZBL wits =(SP) ; 
0044424E ef DD 000F6 PUSHL #4473422 ; 
3 DD OOOFC 148 PUSHL R3 ; 
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16 AC DD OOOF PUSHL OUT_PC_PTR ; 
56 DD 001 SH R : 
68 07 rB CALLS #7, INST_OUTPUT : 
7€ 28 AE 3A 0108 15$:  MOVZBL TOKEN STRING, -(SP) + 3746 
7E 424E gf C 0010C MOVZ2WL #16972, =(SPS : 
3 DD 001 | PUSHL ; 
146 AC DD 0011 PUSHL OUT_PC_PTR : 
36 DD 116 PUSHL ; 
68 Q FB 011 CALLS #5, INST_OUTPUT : 
0 Q O11B 16$ BLBS =_-RO,,_ 178 : 
0297 31 oie BRW 61 ; 
03 Ag 04 A 00121 17$:  BICB2 #4, PATSGL_CONTEXT+3 ; 3750 
02 ¢ 1 001 5 BRW : 3629. 
FG oF 55 91 00128 18$:  CMPB §_ TOKEN_TYPE, #244 : 3753 
03 13 0012C BEQL ©: 19$ ; 
00C6 31 O012E BRW 26$ : 
32 28 AE £9 00131 19$: BLBC TOKEN_STRING, 208 : 3767 
50 18 AC 00 00135 MOVL OPINFO_PTR : 
FFFFFFFE  8F 04 Ad 04 00 EC 00139 CMPV = #0, #47 4(RO), #2 ; 
22 13 00143 BEQL 3 
50 14 BC 10 AC Ci 00145 ADDL3 BRANCH_SIZE, @OUT_PC_PTR, RO : 3780 
29 AE 50 C2 00148 SUBL2 RO, ACTUAL_OPRND : 
10 Ag 05 O014F TSTL BRANCH_SIZE ; 3781 
13 12 90132 BNEQ  20$ ; 
53 DD 00154 PUSHL R3 : 379% 
00000000v EF 01 FB 00156 CALLS #1, ASSUME_AT PC ; 
0 29. oA 50 ¢3 00150 SUBL3 RO, ACTUAL-OPRND, RO : 3793 
29 —oAE FB AO 9E OO 166 MOVAB -5(RO), ACTUAL_OPRND ; 
52 10 AC DO 00167 20S: MOVL BRANCH_SIZE, R2 ; 3801 
68 13 00168 BEQL 4 ; 
51 52 03 78 0016D ASHL #3, R2, R1 ; 3820 
50 18 AC 00 00171 MOVL § OPINFO_PTR, RO ; 3816 
FFFFFFFE  8F 04 Ad 04 00 FC 00175 CMPV =«s-s#O, «#47 «4CRO), #2 ; 
32 13 0017F BEQL 22 3 
50 29 AE 51 00 EE 00181 EXTV #0, R1, ACTUAL_OPRND, RO ; 3820 
50 29. AE D1 00187 CMPL  ACTUAL_OPRND, RO ; 
38 13 00188 BEQL 23$ 2 
000000006 EF 29 AE 00 0018D MOVL _ ACTUAL_OPRND, PATS$GL_BR_DISPL ; 3826 
29 AE OOF 00195 PUSHAB ACTUAL ~OPRND : 3827 
5 pd 00198 PUSHL R ; 
7E 444E ef C O019A MOVZWL #17486, -(SP) ; 
3 DD 0019F PUSHL R ; 
14 AC DD Ota) PUSHL OUT_PC_PTR ; 
56 DD O01A4 PUSHL ; 
68 06 FB O1Ag CALLS #6, INST_OUTPUT ; 
03 0 E OO1A BLBS RO, 218 ; 
0209 31 OO1AC BRW 61$ ; 
50 02 DO OO1AF 218:  MOVL #2, RO ; 3828 
04 018 RET ; 
50 29. AE 51 00 EF 00183 228:  EXTZV #0, R1, ACTUAL_OPRND, RO ; 3834 
50 29 AE D1 00189 CMPL  ACTUAL_OPRND, RO : 
9 13 001BD EQ. 23 : 
00608023 8F DD O1BE PUSHL 176227 ; 3836 
6A 01 FB 001C5 CALLS #1, LIBSSIGNAL ; 
29. «AE «OF 001C8 238: PUSHAB ACTUAL_OPRND > 3843 
52 DD 001CB PUSHL R2 ; 
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7E 444E 8F 3C OOIC MOVZ2WL #17486, -(SP) : 
01¢5 31 0010 BRW 56 : 
oC AE F 0 91D 24$ MOVB #15, LEXEME_BUFFER : 3855 
A 4 109 MOVB #4, TOKEN_STRING : 3856 
5 5 09 9100 MOVL #14, ; 3857 
0 E9 OO1E BLBC AT_FLAG, 25$ : 3858 
52 06 OOTE INCL MOB ; 3860 
28 AE OF OO1ES 258 PUSHAB TOKEN STRING : 3868 
50 52 04 78 O18 ASHL #4, MODE, R : 
51 10 AE 9A OOTEC MOVZBL LEXEME_BUFFER, R1 : 
7E 50 51 ¢9 001FO BISL3. R1, RO; -(SP) : 
0190 1 O1F4 BRW 55 : 
46 BF 55 91 OO1F7 26$:  CMPB =—« TOKEN_TYPE, #70 + 3873 
22 12 001FB BNEQ 7 : 
28 AE OF O01FD PUSHAB TOKEN_STRING : 3879 
53 DD 9200 PUSHL R : 
68 02 FB 00 0¢ CALLS #2, GET_NEXT_TOKEN : 
000000F6 BF D1 0020 CMPL = RO, #248 F 
61 iF 0020¢ BNEO : 
34 57 €8 O020E BLBS AT_FLAG, 29$ : 3889 
50 28 AE 9A 00211 MOVZBL TOREN_STRING, RO : 3899 
7E 50 00000070 8F C9 00215 BISL3 #112,~RO, -(SP) : 
38 11 00210 BRB : 
Fo BF 55 91 0021 F 27$: CMPB =‘ TOKEN_TYPE, #246 : 3903 
3a 12 00223 BNEQ $ : 
52 06 DO 00225 MOVL #6, MODE + 3915 
50 04 A3 00 00228 MOVL 4(R3), INPUT_PTR : 3920 
51 60 9A 0022C MOVZBL (INPUT_PTR),~CHAR : 3921 
28 51 01 O02¢F CMPL CHAR, #43 : 3922 
11 12 00232 BNEQ 9$ ; 
52 08 DO 00234 MOVL #8, MODE : 3929 
02 57 €9 00237 BLBC AT FLAG, 28$ : 3930 
52 D6 O023A INCL Mf : 3932 
04 A3 01 AO 44 0023C 28$:  MOVAB 1(RO), 4(R3) : 3934 
63 B7 00241 DECw  (R3) : 3935 
06 11 00243 BRB 31$ : 3922 
03 57 E9 00245 : BLBC AT_FLAG, 31$ : 3938 
015E 31 00248 30$ BRW $ : 
50 52 04 78 00248 3 ASHL #4, MODE, RO : 3948 
51 28 AE 9A beet MOVZBL TOKEN_STRING, R1 3 
7E 50 51 ¢9 00 33 BISL3. Ri, RO, -(SP) : 
7E 4259 8F 3¢ 0029 32$:  MOVZWL #16985, -(SP) F 
FEIC 31 0025¢ BRW : 
F2 SF 55 91 0 SF 33$:  CMPB §=TOKEN_TYPE, #242 + 3951 
06 1F 00263 BLSSU : 
F3oSF 55 91 00265 CMPB = TOKEN_TYPE, #243 ; 
06 1B 00 69 BLEQU ; 
FS «BF 91 00268 34$:  CMPB §-TOKEN_TYPE, #245 : 
dD? 12 00 oF 5$:  BNEQ 30S ; 
53 DD 00271 36$:  PUSHL R : 3969 
00000000V_ EF 01 FB 0273 CALLS #1, ASSUME_AT_PC : 
0 DS 0027A TSTL INDEXING : 
SF 619 O0e7C BLSS : 
51 28 «AE 9A 00 3 MOVZBL TOKEN STRING, R1 > 3983 
51 14 BC CO 0028 ADDL2 @OUT PC_PTR, R1 ; 
50 21 C9 0286 ADDLe RI, ; 
50 29 AE 0 ¢€3 00289 SUBL3 RO, ACTUAL_OPRND, RO : 
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29 AE FF AO 9 MOVAB =1(R0), ACTUAL_OPRND F 
C AF OF 9 MOVB #15, LEXEME BUFFER + 3990 
21 28 A aA 0697 37$ MOV ZBL TOKEN STRING, R1 + 4001 
50 29 «AE 51 00 EF 029E EXT R1, ACTUAL_OPRND, RO ; 
50 29 A by 0 M cHPL AC {UAL_OPRND, RO F 
76 02 ag 04 FI O2AA BBC #4, PATSGL_CONTEXT+#2, 45$ + 4003 
04 28 AE 1 OO2AF CMPB = TOKEN_STRING, #4 + 4004 
79 1€ 00 B3 BGEQU 46$ : 
50 28 AE 9A 0028 MOVZBL TOKEN_STRING, RO + 4007 
29s AE 2 £0 0289 ADDL2 RO, ACTUAL_OPRND : 
F2  8F 1 0028D CMPB = TOKEN_TYPE> #242 + 4008 
09 fF 02¢1 BNEQ ; 
28 OA 02 90 002¢3 MOVB #2, TOKEN STRING + 4011 
5 OD 8 002¢7 MNEGB #15, TOKER_TYPE + 4012 
07 11 OO2CA ; 4008 
28 OA 04 90 002CC 38$:  MOVB #4, TOKEN STRING : 4016 
£ 0B 8E 00 06 MNEGB #11, TOKEN TYP + 4017 
50 28 AE 9A 002D3 39$: | MOVZBL TOKEN STRING, RO + 4019 
29 —s AE 50 C2 00207 SUBL2 RO, ACTUAL_OPRND 3 
BA 11 00208 BRB 7$ + 4003 
0c AF 9F 002DD 40$:  PUSHAB LEXEME_BUFFER + 4036 
53 DD 00260 PUSHL R : 
68 02 FB 002E2 CALLS #2, GET_NEXT_TOKEN : 
000000F6 8F 50 D1 002E5 CMPL = RO, #248 ; 
03 13 OO2EC BEQL «6s«41$ ; 
00B8 31 OOZEE BRW 58$ : 
51 28 AE 9A 002F1 41$: | MOVZBL TOKEN STRING, R1 + 4056 
51 08 C4 002F5 MULL2 #8, RT : 
50 29. 51 00 EE 002F8 EXTV #0, R1, ACTUAL_OPRND, RO : 
50 29 AE ODT Ogre CMPL  ACTUAL_OPRND, RO ; 
68 13 0030 BEQL 51$ : 
54 28 AE 9A 00304 MOVZBL TOKEN_STRING, I : 4070 
54 D7 00308 DECL ; 
5¢ 11 0030A BRB 50$ : 
29 AE4G 95 0030C 428:  TSTB ACTUAL_BYTESCIJ : 4072 
56 13 00310 BEQL : 
51 28 AE 9A 00312 43$:  MOVZBL TOKEN STRING, R1 : 4078 
51 08 C4 00316 MULL2 #8, RT : 
50 29. AE 51 00 €£E 00319 XTV. #0. R1, ACTUAL_OPRND, RO : 
50 29 AE 01 0031F CMPL § ACTUAL_OPRND, RO : 
47 1300323 44$: BEQ. 5 : 
2e 02 a9 04 a 0 5 45$: BBC #4, PATSGL_CONTEXT+#2, 49S : 4080 
04 28 «AE O91 A CMPB  —s TOKEN_STRING, #4 > 4081 
28 1€ 00 5 46$: BGEQU 49$ : 
50 28 AE OA 00 WOVZBL TOKEN STRING, RO > 4084 
29 AE 50 ¢O 00 ADDL2 RO, ACTUAL_OPRND : 
F2  8F 55 91 00338 CMPB TOKEN TYPE; #242 > 4085 
09 If 033¢ BNEQ 47$ : 
28 «AE 02 90 00 MOVB He TOKEN STRING : 4086 
55 D BF 034 MNEGB #15, TOKEN_TYPE > 4089 
07 11 0034 BRB 48$ > 4085 
28 AE 04 90 00347 47$:  MOVB #4, TOKEN STRING : 4093 
5 B gE 0348 MNEGB #11, TOKEN TYP > 4094 
50 28 AE A 0 4 48$: MOV ZBL TOKEN STRING, RO : 4096 
29. = AE 50 C2 0035 SUBL2 RO, ACTUAL_OPRND ; 
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BA 11 6 BRB 43$ : 4080 
29 AF DD 49$ PUSHL  ACTUAL_OPRND + 4100 
; 0D B PUSHL 3 
00608223 BF DD 50 PUSHL #7176739 : 
6A 3 FB 0036 CALLS #3, LIBS$SIGNAL : 
4 11 00 66 BRB + 4099 
Ad 54 3 £3 00368 50$:  AOBLEQ #3, I, 42$ + 4072 
2 OA p6 036c 51$: mov. #16, MODE + 4118 
F2 «BF 5 91 00 oF CMPB =: TOKEN_TYPE, #242 : 4119 
6 18 0 3 BLEQU 52$ : 
52 § 037 ADDL2 #2, MODE + 4121 
F3 8F 5 1 5 78 52$: CMPB TOCEN_TYPE. #243 : 4122 
03 1 7¢ BLEQU 53$ : 
52 02 CO 0037E ADDL2 #2, MODE + 4126 
0 E9 00 8) 53$: BLBC AT FLAG, 54$ + 4125 
52 06 00 INCL MO : 4127 
28 AF OF 00386 54$: | PUSHAB TOKEN_STRING + 4135 
52 10 ¢4 0038 MULL2 : 
50 10 AE 9A 0038C MOV ZBL LEXEME_BUFFER, RO F 
7E 52 50 ¢9 00390 BISL Ro. = ; 
00434259 8F DD 00394 55$: PUSHL #4407897 : 
53 DD O039A 56$:  PUSHL R : 
14 AC DD 0039C PUSHL OUT_PC_PTR : 
56 DD 0039F PUSHL : 
68 06 FB O03A1 CALLS #6, INST_OUTPUT : 
0D 50 £8 O03A4 57$:  BLBS RO, 60$ ; 
OF 11 OO3A7 BRB é 
006D821B 8F DD 0O3A9 58$:  PUSHL #7176731 + 4141 
6A 01 FB OO3AF 59$: CALLS #1, LIBSSIGNAL : 
04 11 00382 BRB 61$ + 4142 
50 01 00 00384 60$:  MOVL #1, RO + 4151 
04 00387 RET : 
50 D4 003B : 4152 


8 61$:  CLRL RO 
RET 


3; Routine Size: 955 bytes, Routine Base: _PATSCODE + 0C85 
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ROUTINE ASSUME_AT_PC( INST_STG_DESC ) = 


144 
' Functional Description: 


Page 73 
CIPATENC .B32;1 (9) 


i This temporary routine is called when PATCH has read the <size> * <number> 
: part of an <operand reference> to decide whether the person has left out the 
(pc)"’. This decision is made by ooking. oneee way to see if what follows 


i could be legal assuming that he meant 
! possib 
' the operand reference. 


i Inputs: 
INST_STG_DESC = String descriptor to what is left 
of the operand reference after the displacement 


i Returned Value: 


0 or 1, if *(PC)** can be assumed, 


' 
! 
! 
! 
! 
| 
1 
‘ 
| 
' 
' 
' 
or virtual address has been extracted. 
i] 
1 
i 
} “1, otherwise. (DO_NOT_ASSUME) 
! 
i] 
1 
1 
i] 
1 


0 => no yeni byte will be output, 
1 => one byte will be output for [C Rx J. 
In no case is any part of the instruction string changed. 
This routine has no side effects whatsoever. 
BEGIN 
MAP 
INST_STG_DESC : REF BLOCK C, BYTE); 
LOCAL 
INPUT_PTR : REF VECTORC,BYTE); 
MACRO 


DO_NOT_ASSUME = -1 3%; 


lee 


"*. In this case the only 
lities are that he wants indexing, or that this is the end of 


' Value returned if unable to make PC assump 


! PATCH must believe the count part of the counted string and not overrun it. 
} This should not be a Cae because the te with a null 


byte. Also detect whether the reason for returning OK- 


-assume-""(PC)"’ is 


i because the operand is going to include indexing or not. Do this based on the 
) ° 


presence or absence 
iF (-INST_STG_DESCCDSCSW_LENGTH] EQL 0) 
RETURN(FALSE); 
INPUT_PTR = CHSPTR (.INST_STG_DESC CDSCSA_POINTER)); 
IF (.INPUT_PTRCO] EQL ASC~SQ_OPN_BRAK) 
RETURN( TRUE) 


RETURN(DO_NOT_ASSUME) ; 


ELSE 
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; 2569 4210 1 END; 


0000 00000 ASSUME_AT PC: 


-WORD Save oath ing 3 4153 

50 04 aC DO 0000 MOVL §_INST_STG_DESC, RO + 4201 
60 B85 000 TSTW = (RO) : 
12 13 0000 BEQL 2$ : 

50 04 a0 00 9900A MOVL  4(RO) INPUT. PTR : 204 

5B OF 60 91 S005 CMPB ss CINPUT_P #91 + 4205 
04 12 0001 BNEQ 1$ : 

50 01 D0 00014 MOVL #1, RO : 4209 
04 00017 RET 3 
50 01 CE 00018 1$ MNEGL #1, 20 : 
04 00018 RET ; 

50 64 O00IC 2$ €LRL  —RO + 4210 
04 OOO1E RET : 


; Routine Size: 31 bytes, Routine Base: _PATSCODE + 1040 
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; 2571 4211 1 ROUTINE INST_OUTPUT ( OUT_BYTE_STREAM, 
; if 4 \¢ 1 UT_PC_P 
> 257 4o13 1 INST_STG_DESC, 
: 2574 4214 1 CTRL STRING, 
; 2575 4215 1 ARGO, 
; 278 4 1 1 ARGI, 
: 5896 i518 ghee 
; 2579 4 15 1 +4 . : 
; 280 : 9 } Functional Description: 
; 268 4 ¢ 1! This routine serves two purposes. 
3; 25 4 1! 1) It checks whether an indexed operand reference 
: 2584 4 $e 1! has been made, and outputs the proper mode byte 
; 2585 4225 1! if it has. 
; 2586 42ce 1: 2) It takes care of all other instruction byte 
3: 2587 4 37 1! output as well - not that this routine computes 
; s2e8 : $8 : any of this - it just localizes such output. 
; 2590 4 $5 1 ! Calling Sequence: 
; 2591 4231 1! 
3 $232 4233 1! INST_OUTPUT () 
: 259 4233 1! 
ion ose 
: 2596 4236 1! OUT_BYTE_STREAM -The address of a pointer to where 
; 2597 ret Hf 1! we are in the output stream. The address 
; 2598 és 8 1! is passed here so that we can both 
; 2599 4239 1! use and update this pointer. 
3 sone 4240 1! OUT_PC_PTR -The address of a pointer to where we 
; 2601 4241 1! will eventually be stuffing the encoded 
$ sone $st¢ 1! instruction in aesery, We both read 
: 260 42435 1! and write (update) this pointer. 
; 2604 4244 1! INST_CS_PTR -The address of a pointer to the counted 
; 2605 4245 1! string which describes where we are at 
3; 2606 4246 1! in operand encoding. Again, a pointer is — 
: 2607 4247 1! passed here so that we may update the cs-pointer. 
: 2608 4248 1! CTRL_STRING “A 4-character bs tag (a longword) which effectively 
; 2609 $$83 ee: controls the action taken by this routine. The first 
3; 2610 4250 1! (Oth) character should be ‘Y' or 'N', and is taken to 
; 2611 4251 1! indicate whether we should allow indexing 
3 oie $526 7! for the current operand reference or not. 
; 261 42535 1! The next 2 or 3 characters must be 1 of ‘B', 'C*, or 'D", 
3: 2614 4254 1! and are used to indicate how the remaining parameters 
3 2615 4255 1! should be interpreted. See below. 
3; 2616 4256 1! The Last of these characters must be 0 (null) to 
3 2617 $$2¢ 7? indicate when the routine should stop. : 
; 2618 4258 1! ARG? “These args are interpretted differently Sepending 
3; 2619 $523 ,? on the ‘control string’. See above and below. 
3; 2620 4260 1! 
$ 1 $56! ! } Implicit Inputs: 
; 26 : 4 88 1: None. 
3 2624 4264 1! 
: 2625 4265 1 ! Outputs: 
3 os6 & 06 1! 
: 26 4267 1! None. 
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: 2628 & $8 1} 
3 ? 2 ? 8 ! Implicit Outputs: 
3 1 : r } } The instruction bytes are copied into the output vector. 
; 26 : 4 ig 1 ! Routine Value: 
; 26 4274 1! 
; 2635 4275 1! TRUE - if all went OK, 
; 26 4 6 1! FALSE otherwise. The only thing that can go wrong 
: 26 4277 1! is that we are prepared to allow indexing, see that the 
; 26 & A ,} indexing reference is started, ('C' is encountered), 
3; 2639 4279 1! but then don't get a proper completion of this token. 
; 2640 4280 1 !-- 
; 2641 4281 1 
; 6 4 S¢ BEGIN 
3; 264 428 
3 26446 4284 MAP 
3 2645 4285 !++ 
3: 2646 4286 ! The reason why the following 3 are REFs to LONGs instead of to BYTEs 
3: 2647 4287 ! is because they are getually REF REF VECTORC,BYTEJ, which we can only 
$ tr osee achieve (so far!?) via a REF LONG. 
3; 2650 4290 OUT_PC_PTR : REF yee rent.) ons. 
; 3691 4291 INST_STG_DESC : REF BLOCK LC, BYTE) 
; 65¢ 4 3 OUT_BYTE-STREAM : REF VECTORC,LONG); 
3; 265 429 
3: 2654 4294 LOCAL ; ; 
3 2655 4295 RL_PTR : REF VECTORC,BYTE), ! Examine the control string. 
3 $026 £538 OUT_BYTE_PTR : REF V CTORC BYTE), ! Pass back instruction bytes. 
> 2657 4297 ARG-PTR : REF VECTOR, LONGI, i Used to pick up ARGx. 
: 2658 4298 TOKEN_BUFFER : VECTORE CHS_PER LEXEME, BYTEJ, 
3; 2659 4299 TOKEN_STG_DESC : BLOCK (127 BYTE); 
3; 2660 4300 
3; 2661 4301 !++ : 
3 $006 ror) ! Set up the various pointers. The ARG_PTR is used to access each successive 
; 266 430 ' ARGx actual parameter. Since this routine loops thru them, it can't use the 
3 2664 4304 ! formal parameter's name. 
3; 2665 4305 len 
3 2666 4306 2 ARG_PTR = ARGO; 
3: 2667 4307 
; 2668 4308 '+¢ 
3; 2669 4309 ! CTRL_PTR geigts to the individual characters ppeees in the actual parameter, 
3; 2670 4310 ! "CTRC_STRING'. Note that this is actually a literal, because the characters 
3 of) ? 1 : are contained within the parameter. 
; £78 1315 CTRL_PTR = CTRL_STRING; 
3: 2674 4314 
3; 2675 4315 '+¢ ; . : : 
; 2676 ous ! QUT_BYTE_PTR points to the location for the next byte in the instruction 
; 2677 431 ! stream to be written. This value is found by loading the contents of the cell 
: 2678 ezi8 ! pointed to by OUT_BYTE_STREAM. The address of this pointer must be passed to 
: 4 : 1} ! enable the pointer to Be incremented. 
3 2681 t3 1 2 OUT_BYTE_PTR = .OUT_BYTE_STREAMCO]; 
: Ose 43 § 
3; 268 43 !¢+ : - , : 
3: 2684 4324 ' Likewise, the address of the current instruction-stream counted-string 


| 16 
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40:15 742 Page 77 
| v04=060 ence tee Ibo ts TN eat et ea eta en Secaparenc..as2rte* «106 


BEGIN 
Error if this is not an indexed reference. 
LF (GET_NEXT_TOKEN(. INST_STG_DESC, TOKEN_BUFFER) NEQ INDEXING_TOKEN) 


BEGIN 
SIGNAL (PAT$_OPSYNTAX*+MSGSK_INFO); 
RETURMCFALSE): 


685 5 ! pointer, INST_CS, is passed. Once again this provides the ability to update 
one $ the pointer. 
te 8 TOKEN_STG_DESC CDOSCSW_LENGTH) = 0; 
6c TOKEN-STG-DESC CDSCSA-POINTER] = TOKEN BUFFER; 
6%. Og TOKENDSTG_DESC CDSCSU_MAXLENJ = CHS_PER_LEXEME; 
69 ¢ '+¢ 
69 ! Whether or not indexing mode is allowed, is indicated by the first character 
O38 : in the control string. '‘Y* means yes, and anything else means no. 
238 6 IF (.CTRL_PTRCOJ EQL ‘Y') 
69 7 THEN 
698 38 BEGIN 
699 39 e+ 
700 40 ! Check for indexing. The difficulty here is that this routine must 
701 4) ' "look ahead’ before calling GET_NEXT_TOKEN because it will overwrite 
70 ri} ! the instruction string. The string must be left untouched unless 
4 $7 } indexing mode was actually specified. 
705 345 LOCAL 
06 346 INPUT_PTR, 
07 347 CHAR; 
08 348 
09 349 INPUT_PTR = .INST_STG_DESC CDSCSA_POINTER); 
350 CHAR = CHSRCHAR (7INPOT_PTR); 
351 HAR EQL 'C") 
$26 
35 
354 
355 
356 
357 
358 
359 
360 
361 
$08 


NONMINONONY 2 2 
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WCELAAAPIPIPIPIMINIPIDNIHE BE EE HSPN ME B&B EWE AWN inonononononononononony 


36 
364 !o+ 
2 $0? Output the indexing mode byte. 
7 367 OUT_BYTE_PTRCO] = (INDEXING _MODE * 4) OR .TOKEN_BUFFERCO); 
728 368 OUT“BYTE-PTR = .OUT_BYTE_PTR + BYTE_LENGTH; 
729 69 END; 
730 370 END; 
731 371 
T3 336 'e¢ t A : 
73 37 ! Continue on according to the control string, breaking out of the loop when 
ree $e : the first 0 byte is encountered. 
7 376 CTRL_PTR = .CTRL_PTR +1; 
737 37 0 
7 $ 4. BEGIN 
7 7 B 
740 80 ARG_BYTE = (,ARG_PTR) : REF VECTORC,BYTE); 
741 381 


1984 00:40:15 VAX-11 Bliss-32 V4.0-742 78 
1982 99:29:43 DISKSVMSMASTER: CPATCH.SRCJPATENC. B32, a (10) 


74 4 : SELECTONE .CTRL_PTRCO] OF 

74 4 SET 

744 4384 

745 4385 C'B'): ! Pass back 1 byte. 

74 4 56 

74 438 BEGIN 

748 4388 UT_BYTE_PTRCO) = nee TRCOJ; 

749 4389 OUT“BYTE-PTR = .OUT BYTE PTR BYTE LENGTH; 
750 4390 ARG-PTR = .ARG_PTR R TLONG™ LENGTH 

re) 4391 END; 

7 ¢ 4 8 

iF 439 C'C'J: ! Counted byte string. 

754 4394 

755 4395 BEGIN 

756 4396 gHorove (Ane orterga, “ne BYTECI], .OUT BYTE_PTR); 
757 4397 OUT BYTE_PTR'= .OUT 8 E_PTR : ribRS_BYTECOI;” 
758 4398 ARG_PTR = .ARG_PTR + LONG. LENG 

759 4399 END; 

760 4400 

761 4401 C'D'J: ! Count + byte address. 

re¢ 440 

76 440 BEGIN 

764 4404 eves ARG prance}. ee PTRC1), .OUT_BYTE_PTR); 
765 4405 red BYTE_ PTR = .OUT_BYTE_PTR + .ARG _PTROOJ;~ 
766 4406 ARG_PTR = .ARG_PTR # SEONG. LENGTH; 

767 4407 END? 

768 440 

76 abienitand ! Error. 

7 RN(O); 

77 

7 TES; 


le 
i Loop back to consider the next control character 
' until a null character is encountered. 


CTRL_PTR = .CTRL_PTR + 1; 
END 


WHILE (.CTRL_PTRCO) NEQ 0); 


16 

: Update Hy instruction-stream pointer which is being maintained by the routine 
ich called this one. This can be done as the address of the pointer was 

assed. Also, this is possible this routine remembers the number of bytes it 

: as written to the output byte stream. 


OUT_PC_PTRLO) = >OUT_PC PTRCO) : at “ba -BYTE_PTR = .OUT_BYTE_STREAM(O]); 
OuT BYTE _STREAMCO) =" .O0T_BYTE_P 


‘e+ 
it Likewise, update the caller's instruction string pointer. 


RETURN(TRUE) ; 
END; 
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ince lcgpennitaiettetatcnceaiieaeeta eaisbatietiatahtae tancttcarlanininstataaasnmtndnadlstcnas : 4 


PATENC 


1 | 
v04-000 18-Sep-1984 09:40:13 VAXo TT Bk isse32 V4 0-742 79 


DISKSVMSMASTER: CPATCH.SRCJPATENC. 832; 7 *(10) 


. WORD Sa e R2,R3,R4,R5,R6,R7,RB,RP : 4211 
5E 28 (2 90002 SUBL2 : 
5 14 AC 9E 0000 MOVAB ARGO, : 4306 
59 10 AC 3 0009 MOVAB CTRL. sth RING.” PTR : 431 
56 04 BC DO 0000D MOVL  @OUT~BYTE NS tREAM: “OUT_BYTE_PTR + 4321 
6— B4 00011 CLRW = TOKER_STG- : 4328 
04 AE OC AE 3 00915 MOVAB TOKEN “BUFFER, TOKEN_STG_DESC+4 + 4329 
08 AE 19 : 9001 MOV’. #25, TOKEN_S st DESC#8B : 4330 
59 BF 69 91 0001C CMPB(CTRL_PTR)> #89 > 4336 | 
3¢ 12 00020 BNEQ 2$ : 
50 0C AC 00 00022 MOVL — INST_STG_DESC, RO + 4349 
51 04 AO 00 00026 MOVL 4(ROY, INPUT_PTR : 
51 61 9A O0002A MOVZBL (INPUT_PTR),~CHAR + 4350 
00000058 =F 51 D1 900¢0 CMPL CHAR, #91 + 4351 
28 12 00034 BNE $ : 
OC AE OF 00036 PUSHAB TOKEN BUFFER + 4357 
50 DD 00039 PUSHL RO : 
FIED CF 02 FB 0003B CALLS #2, GET_NEXT_1OKEN : 
Q00000FO 8F 50 D1 00040 CMPL RO, #240 ; 
OF 13 00047 BEQL = «*t1$ : 
006D821B 8F DD 00049 PUSHL 47176731 : 4360 
000000006 00 01 FB OO04F CALLS #1, LIBSSIGNAL ; 
54 11 00056 BRB + 4361 
RG Oc AE 40 BF 89 00058 1$: BISB3 #64, TOKEN_BUFFER, (OUT_BYTE_PTR)+ t 4367 
59 06 0005E 8: INCL CTRL : 4376 
42 BF 69 91 00060 3$: CMPB (CTRC_PTR), #66 : 4385 
05 12 00064 BNEQ : 
RG 68 90 00066 MOVB  (ARG_PTR), (OUT_BYTE_PTR)+ : 4388 
27 11 00069 BRB : 4390 
43 BF 69 91 0006B 4$: CMPB = (CTRL_PTR), #67 : 4393 
13 12 0006F BNEQ F 
57 68 pO 00071 MOVL (ARG_PTR), R7 : 4396 
50 67 9A 00074 MOVZBL (R7) ; 
66 01 A? 50 28 00077 MOVC3 RO, 1(R7), (OUT_BYTE_PTR) ; 
50 67 9A 0007C MOVZBL (R?), : 4397 
56 50 CO O007F ADDL2 RO, OUT_BYTE_PTR : 
0€— 11 00082 BRB a : 4398 
44  8F 69 91 00084 5$: CMPB = (CTRL_PTR), #68 + 4401 
22 12 00088 BNEQ 7$ : 
66 04 88 68 2 008A MOVC (ARG_PTR), @4(ARG_PTR), (OUT_BYTE_PTR) + 4404 
6 88 CO 0008F ADDL (ARG~PTR)+, OUT_BYTE_PTR + 6405 
58 04 C0 00092 68: ADDL2 #4, ARG PTR + 4406 | 
59 Bg 0009 INCL  CTRL_PTR > 4418 
69 9 00097 TSTB = (CTRE_PTR) + 4421 
C5 le 0099 BNEQ ; 
50 56 oO Oc C 90098 SUBL3. @0UT_BYTE_STREAM, OUT_BYTE_PTR, RO + 4429 
08 BC 0 €0 O00A0 ADDL2 RO, SOUT PC PTR : 
04 BC 6 DO O00A4 MOVL OUT BYTE -PIR, @OUT_BYTE_STREAM + 4430 
50 01 DO 000A8 MOVL  #1,7RO > 4435 | 
04 OOOAB RET ; 
50 b OOAC 7$: CLRL  ~— RO > 4436 
4 OOOAE RET ; 


=v 
ae 
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; Routine Size: 175 bytes, Routine Base: _PATSCODE + 105F 


rs 


dD 1 

PATENC 16-Sep-1984 00:40: VAX-11 Bliss-32 V4.0-742 Page 81. 

v04-000 14-Sep-19 4 99793: 43 DISKSVMSMASTER:CPATCH.SRCIPATENC.B32; 1° af) Vv0é 
: 2798 4437 1 ROUTINE OPCODE_MATCH (OPCO_STG_DESC, OPINFO_PTR) = | 
: 2799 4438 1 | ij 
; 2800 4439 1 !++ : 3 
5 $49! ree } Functional Description: | : 
; 280 4442 1! Look up the given opcode mnemonic in the OPINFO : : 
; 2804 4443 1! table to see if it is there. If so, return the | i 3 
; 2805 4444 1! opcode and a pointer to the OPINFO table entry which | 2 i 
: 2806 4445 1! corresponds to this opcode. : 
; 2807 4446 1 | | 3 
; 2808 4447 1 ! Calling Sequence: 2; 
; 2809 4448 1! : i 
; 2810 4449 1! OPCODE_MATCH () : 
; 2811 4450 1! ij 
; selg 4451 1! Inputs: * 
; 281 rt 1! ; : 3 
3; 2814 44535 1! OPCO_STG_DESC as descriptor for the given opcode. : 
; 2815 4454 1! OPINFO_PTR ~The address of where we should copy the : ij 
; 2816 4455 1! OPINFO record pointer when we find the : 
; 2817 4456 1! one which corresponds to the given opcode. | i; 
; 2818 4457 1! Implicit Inputs: gs 
: 2819 4458 1! i; 
; 2820 4459 1! The OPINFO table. See PATINS.B32 : 
; 2821 4460 1! 23 
3; 2822 4461 1 ! Outputs: i; 
3; 2823 4462 1! 2; 
: 2824 44635 1! None. 73 
>; 2825 4464 1! ; 2; 
: 2826 4465 1 ! Implicit Outputs: ij 
: 2827 4466 1! | ij 
3; 2828 4467 1! A pointer to the OPINFO table entry that a 
: 2829 4468 1! corresponds to the found opcode mnemonic : 
; 2830 4469 1! is returned via the formal pointer OPINFO_PTR. 2 | 
; 2831 4470 1! : ij 
; 2832 4471 1 ! Returned Value: | 3 
: 9835 4472 1} = 
> 2834 4473 1! -1 -if the lookup fails or if there is insufficient a 
; 2835 4474 1! information in the table entry for the program 2 j 
; 2836 4475 1! to continue. : 2; 
; 2837 4476 1! The found OPCODE, otherwise. This is non-standard, 2 
; 2838 4477 1! so we use a local macro to draw attention to it. 3 
3; 2839 4478 1 !-- 5; 
; ae 4480 § BEGIN sy 
3 ote 4481 24 
3; 284 4482 2 MACRO $j 
3 2844 4485 2 OPC_MATCH_ERROR = -1 2%; ! Error return for this routine. a 
3: 2845 4484 2 e 
3; 2846 4485 2 MAP 
3: 2847 4486 2 OPCO_S1G_DESC : REF BLOCK C, , Hidde 2; 
3: 2848 4487 2 OPINFO_PTR : REF VECTORC,LONG); 2 
3 Seep 4488 2 i 
; 2850 4489 LOCAL ; 

3; 2851 4490 ALIAS : 

; 85¢ 4491 OPCODE ; 

> 285 449 psizé ; 

> 2854 449 OP~RAD5O, ; 


1 | 

ise -1984 00:40:15 VAX-11 Bliss-32 V4.0-742 Page 82) 

12-80 382 99799:33 DISKSVMSMASTER:CPATCH, SRCIPATENC.B32:1° ne 
: 2855 4494 OP_FROM_USER : VECTOREC OP_CH_SIZE, BYTE J; 3 
2836 4495 “ne | : 
; 2857 4496 144 | ; 
; 2858 4497 ! First check that the supposed opcode is not too long or too short. ; 
; £28 ree ;_A zero cannot be returned as zero is a valid opcode. | : 
: 2861 4500 OP_SIZE = .OPCO_STG_DESC CDSC$W_LENGTH); : 
; g86¢ 4501 3 IF~(.OP_SIZE GTR OPTCH_SIZE) OR~(.OP_SIZE LEQ 0) ; 
; 286 t208 2 THEN 3 
3: 2864 450 § RETURN(OPC_MATCH_ERROR) ; : 
>; 2865 4504 3 
3 V9] 4505 § '++ 5 
; 286 4506 ! Otherwise do the lookup linearly by first eb bbw a local era ree with spaces, : 
3; 2868 4507 2 ! copying in the given opcode mnemonic, and converting to RADSO so Longword 3 
3 $ee? 1208 § compares can be used with the OPcodes encoded in the table. : 
: 2871 4510 2 CHSCOPY(.OP_SIZE, CHSFTR(.OPCO_STG_DESCCDSCS$A_POINTER], 0), ASC_SPACE, ; 
3: 2872 4511 2 H_SIZE, OP_FROM_USER); 5 
; 2873 t2i§ 2 OP_RADSO = RADS5SO( OP_FROM_OSER ); ; 
3 2874 451 2 INTR OPCODE FROM 0 TO SIZOPINFO1-1 DO : 
>; 2875 4514 3 BEGIN 5 
: 2876 4515 3 '++ 3 
; 2877 4516 3 ! Extract the opcode from the OPINFO table, converting it to ASCII, and | ; 
3 sare reat 4 ; ; compare this with what is being sought. : 
; 2880 4519 3 IF .PAT$SGB_OPINFOI1C.OPCODE, OP_NAME] EQL .OP_RAD50 Ps 
; 2881 4520 3 THEN 3 
: 2882 4521 4 BEGIN ; 
> 2883 4522 4 oo : ; 
; 2884 4523 4 ' Pass back both the opcode (the current index into the table), 3 
3 Sasa t2Se ? and the pointer to the current table entry. 3 
; 2887 4526 4 OPINFO_PTRCO) = PAT$GB_OPINFOIC .OPCODE, OP_NAME J; : 
> 2888 4527 4 RETURNT.OPCODE); ; 
3; 2889 4528 3 END; F 
; 2890 4529 2 END; F 
: 2891 4530 2 3 
3: 2892 4531 INCR OPCODE FROM 0 TO SIZOPINFO2-1 DO : 
; 2893 $236 BEGIN : 
: 2894 453 '+¢ : 
; 2895 4534 3 ! Extract the opcode from the OPINFO table, converting it to ASCII, and : 
; ts] $292 3 compare this with what is being sought. $ 
; 2898 4537 ; F IF_.PATSGB_OPINFO2C.OPCODE, OP_NAME) EQL .OP_RADSO : 
3; 2899 4538 THEN 3 
: 2900 4539 4 BEGIN : 
3; 2901 4540 4 !++ : : 
; 290 4541 4 ! Pass back both the opcode (the current index into the table), ; 
; Sonz rtrd ? } and the pointer to the current table entry. | 3 
: $308 4544 4 OPINFO_PTRCOJ = PAT$GB_OPINFO2C .OPCODE, OP_NAME J]; : 
: 2906 4545 & RETURNT.OPCODE*8+2X'FD"); : 
3; 2907 £28 3 END; : 
3; 2908 454 END; : 
3; 2909 £248 3 

3; 2910 4549 INCR ALIAS FROM 0 TO SIZALIAS=-1 DO | 

: 2911 4550 BEGIN 


4 
PATENC 16-Sep-1984 00:40: VAX=-11 Bliss-32 V4.0-742 Page 83. 
v04-000 18780-1382 90:29:43 DISKSVMSMASTER: CPATCH. SRCIJPATENC.B32: 1° (11) | 
3 aig tee l++ 
: 291 45 § ' Extract the opcode from the ALIAS table, converting it to ASCII, and 
3 aie t2e7 compare this with what is being sought. 
i 2916 4555 iF .PATSGB_ALIASC.ALIAS, OP_NAME] EQL .OP_RADSO 
3; 291 4556 THEN 
; 2918 4557 4 BEGIN 
: 2919 4558 4 14+ 
; 2920 4559 4 ' Pass back both the opcode (the current index into the table), 
: $3 1 rte ? } and the pointer to the current table entry. | 
; 29 : 4968 4 OPCODE = .PAT$GB_ALIASL ALIAS, AL_OPC ]; 
+ 2926 4563 4 OPINFO_PTRCO] = PAT$GB_OPINFOL .OPCODE, OP_NAME J; 
: 33 5 4564 4 RETURNT.OPCODE); 
: 2926 4565 3 END; | 
: 2927 4566 2 END; 
; 2928 4567 $ 
5 5363 4568 'e4 
: 2930 4569 2 ! Failure, if routine falls through Loop. 
3 2931 4570 2 i-- | 
: 2932 4571 2 RETURN(OPC_MATCH_ERROR) ; 
> 2933 4572 1 END; 
| 
} 
| 
OOFC 00000 OPCODE_MATCH: | 
-WORD Save R2,R3,R4,R5,R6,R7 + 4437) 
57 000000006 EF 9€E 00002 MOVAB PATS$GB_GPINFO2, R7 ; | 
56 000000006 EF 9E€ 00009 MOV PAT$GB_OPINFO1, R6 ; 
5E 08 C2 00010 SUBL SP j 
50 04 Ac BO 00013 MOVL  OPCO_STG_DESC, RO : 4500 
51 60 3¢ 0001 MOVZ2WL (RO); OP-SIZE : 
06 51 D1 OOO1A CMPL  OP_SIZE,~#6 > 4501 
03 15 00010 BLEQ 2$ 3 
OO8E 31 OOOIF 1$: BRW 12$ 3 
51 » 00022 2$: TSTL OP_SIZE 3 
FQ 15 00024 BLEQ 1$ : 
06 20 04 B0 3 2c 900 6 MOVCS OP_SIZE, a4(RO), #32, #6, OP_FROM_USER : 4510 
5E Dd 0002D PUSHL SP > 4512 
00000000G_ EF 01 FB 0002F CALLS #1, RADSO 3 
51 b4 00 CLRL  OPCODE + 4519 
6641 7F 3$: PUSHAQ PAT$GB_OPINFO1COPCODE) ; 
50 9E D1 00038 CMPL a(SP)+> OP_RADSO ; 
09 12 0003 BNEQ 4$ ; 
08 ¢ 6641 7E 0004 MOVAQ PATSGB_OPINFO1LOPCODE]. @OPINFO_PTR ; 4336 | 
0 51 b0 9004 MOVE OPCODE; R ; 4527 
E7 51 00000102 ef Fs 0949 48: AOBL EG #258, OPCODE, 3$ : 4513, 
6741 oF 99 3 5$: PUSHAQ PATSGB_OPINF O2{OPCODE ; 0337 | 
50 3 } 5 $ CPL 9(SP)+, OP_RAD : | 
08 BC 6741 ze 0 8B MOVAQ PATSGB_OPINFOZCOPCODE], @OPINFO_PTR + 4544. 
52 1 08 7 06 ASHL #8, OPCODE, R 7: 4545. 
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PATENC 18-5 Sep 74 VAX-11 Bliss-32 V4.0-742 e 
v04-000 14-Sep 71984 99: + }3 DISKSVMSMASTER: CPATCH. SRCJPATENC.B32; rae a} 
52 OOFD 2 % 00064 MOVAB ep3(Re). R2 3 
D 1 69 BRB 19s : 
EO 51 000000FF Fo $ 6$: AOBLEQ 55, OPCODE, 5$ + 4531 
1 04 CLRL ALIAS § : 4549. 
53 51 $ g9 75 7$ MULL3 RB : 6555. 
OOOOD000GEF43 SF 00079 PUSHAB PAESCE_ Mi fas R3) : | 
50 3 D1 ? CMPL a(SP)+> OP_RADS : 
27 12 000 NEQ 11$ : 
QOO00000GEFS3 9F 99 PUSHAB PAT$GB ~ALIAS*GCR31 > 4562 
52 H ¢ O8¢ MOVZWL a(SP)+> OP : 
FD soa 5 1 0008F CMPB OPCODE, #2 > 4563) 
06 13 9093 BEQL $ : 
53 6642 7E 0009 MOVAQ PATS$GB_OPINFOICOPCODE], R3 : 
09 11 00099 BRB 9 : | 
53 52 F8 BF 78 90098 8$: ASHL : 
5 6743 7E OOOA MOVAQ PaTsca. SOO EOSERSI. R3 ; | 
08 BC 3 DO OO0A, 9$: MOVL a0 OP INF : 
50 DO OOOAB 10$: MOVL OP PEODE + 4564 
04 000AB RET ; 
C5 51 34 £3 OOOAC 118: AOBLEQ #52, ALIAS, 7$ + 4549 
50 01 CF 600B0 12$: MNEGL #1, RO + 4571 
04 99083 RET : 4572 
; Routine Size: 180 bytes, Routine Base: _PATSCODE + 110E 


H 1 
PATENC 16-Sep-1984 00:40: VAX-11 Bliss-32 V4.0-742 Page 85 
v04-000 1e-8ep-19 4 99:99:43 DISKSVMSMASTER = CPATCH, SRCJPATENC B32: 1° 3} 
; set? } ROUTINE MAR_GET_LEX (INPUT_STG_DESC, LEXEME_STG_DESC) = 
; 4575 1 144 
; t28 ! Functional Description: 
: 4578 1 Extracts a lexeme from the input stream by calling the routine 
; 4579 1! PATSMAR_GET_LEX. First MAR_GET_LEX zeros the lexeme buffer. 
; 4580 1! The valle of the routine is the token in the character string 
; 4581 1! pointed to by LEXEME_STG_DESC, the ate ing descriptor for the lexeme. : 
: t28¢ : lso the input buffer string descriptor is updated. ; 
: 4984 Calling Sequence: ; 
; 4986 1 | MAR_GET_LEX ( INPUT_STG_DESC, LEXEME_STG_DESC) ; 
: 4588 1 | Inputs: : 
3 4589 1! 
; 4590 1! INPUT STG DESC = String descriptor for input Line 
: rite : LEXEME_STG_DESC = String descriptor for lexeme found 
: 1398 1 ' Implicit Inputs: | 3 
; 4594 1} : 
; 4595 1! NONE 3 
; 4596 1! 5 
3 4597 1 ! Outputs: : 
; 4598 1! | : 
; 4599 1! None. 
: 4600 1! 
: 4601 1 ! Implicit Outputs: 
Py ret] 1! 
: 4605 1! The string descriptors are updated. 3 
; 46046 1! 3 | 
; 4605 1 ! Returned Value: 3 | 
3 4606 1! 
; rrr t4 : An encoded representation of the token found. 
; 4609 1 i-- ; 
: 4610 1 
: 4611 2 BEGIN : 
; 461 | 
5 461 MAP : 
3 4614 INPUT_STG_DESC : REF BLOCK f- eytgd. s 
5 $613 LEXEME_STG_DESC : REF BLOCKC,BYTE); : 
; 461 les : 
; rdf | : First zero out the buffer which will hold the lexeme found. : | 
; 4620 2 ZEROCOR (.LEXEME_STG_DESCCDSCSA_POINTER], (.LEXEME_STG_DESCCDSCS$W_MAXLENJ/4)); , 
; 4621 : RETURN(PATSMAR_GET_LEX(. INPUT_STG_DESC, -LEXEME_STG_DESC)); 


007C 00000 MAR_GET_LEX: | 
~ “WORD Save R2,R3,R4,R5,R6 ; 4573, 
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ROUTINE ADD_LEX_T_OPRND (LEX_STG_DESC, OPRND_STG_DESC, MAX_BUF_SIZ) : NOVALUE = 


'e4¢ 
' Functional Description: 


SSeo% 


This routine takes an ASCII Lexeme and adds it to an operand buffer. 


S33 
wr 


none 


04 
4623 
4624 
4625 
46 § : 
1658 | | 
46 5 : It _ be used to take any ASCII string described by a string 
4630 : descriptor and add it to a buffer described by another string 
994 463) ! descriptor. The string descriptor for the latter is updated to 
995 46 ¢ : include the new ASCII string. The third input parameter gives the 
o38 ‘ ? } maximum size of the operand buffer. 
4 1032 Calling Sequence: 
000 1637 ! ADD_LEX_T_OPRND ( LEX_STG_DESC, OPRND_STG_DESC) 
001 4638 } 
ge RES | | Inmuts 
004 4641 ! LEX_STG_DESC - etcing descriptor for input lexeme 
005 hah} t OPRND_STG_DESC = Str ng descriptor for resultant operand string 
OOF re ok } MAX_BOF_STZ = Size of the buffer pointed to by OPRND_STG_DESC 
! Implicit Inputs: 
008 4645 ! Implicit I 
009 4646 : 
1. mt 
Big 4649 ! Outputs: 
01 4650 : 
bis 1623 None. 
3016 4655 1 | Implicit Outputs: | 
3018 4655 ! The lexeme string is written into the next free bytes of the operand 
019 4656 : buffer. The string descriptor for the resultant gas OPRND_STG_DESC, 
020 4657 ; is updated. If the combined string is too large for the buffer 
021 4658 ; then an error is SIGNALed. | 
os¢ 4659 } 
02 4660 ' Returned Value: 
024 ; 
025 : 
026 ' 
ost ! 
028 
0 
0 


ves 


wn 


LEX STG DESC : REF BLOCK C BYTE. 
OPRND_STG_DESC : REF BLOCKC,BYTE 


| 
lee 
| 
| 


oooo[eo 


Fisrt check that there is room in the operand buffer for the lexeme string. 
if ((. LEX_STG_DESCCDSCSW_LENGTH] + .OPRND_STG_DESCCDSCSW_LENGTH]) GTR .OPRND_STG_DESCCDSC$W_MAXLEN)) 
SIGNAL (PAT$_OPRNDLNG+MSGSK_WARN, 4, .OPRND_STG_DESCCDSC$W_LENGTH), 


; STG DESC DSTSA POINTER, .LE_STG_DESCCDSCSW_LENGTH), 
“LEX_STG_DESCLDSC$A_POINTER)); 
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; 3063 4680 

: 30446 4681 1++ 

; 3045 46 § ! Plenty of room in buffer. Move the lexeme string into the buffer, starting 

; Sk rect : at the next unused byte in the buffer. 
: 3048 4685 CHSMOVE ( - LEX STG_DESCCDSCSW_LENGTH], .LEX_STG_DESCCDSCS$A airs: 

3 oh re $ CH PTR( .OPRND_STG_DESCLDSCS$A_POINTER > «OPRND_STG_DESC DSC$W_LENGTH])); 
; 051 4688 2 !++ 

3 O36 r+ Now update the operand string descriptor to include the appended lexeme. 

; B2e 4691 OPRND STG_DESCCDSCSW_LENGTH] = .OPRND_STG_DESCCDOSCSW_LENGTH] + .LEX_STG_DESCCDSC$W_LENGTHI; 
Ser 


OOFC 00000 ADD_LEX_T OPRND: 


*T) Save R2,R3,R4,R5,R6,R7 ; 4623 
57 04 aC 00 00002 MOVL LEX_STG. DESC, R7 + 4675 
56 08 AC DO 00006 MOVL OPRND_STG_DESC, R6 : 
50 67 3C OOO0A MOVZWL (R7),~RO : 
51 66 %3C 0000D MOVZWL (R6), R1 : 
50 51 CO 90010 ADDL2. R1, RO : 
50 08 Ab 10 00 ED 0001 CMPZ7V #0. #16, 8(R6), RO : 
1B 18 00019 GEQ—Ss«éd1S : 
04 A7 Be 0001B PUSHL 4(R7) 3; 4679 
7E 67 3C OOO1E MOVZWL (R7), =(SP) + 4678 
06 Ab bd 00021 USHL 4(R65 ; 
7E 66 3C 00024 MOVZWL (R6), =(SP) + 4677 
04 DD 00027 USHL #4 : 
00608298 8F DD 00029 PUSHL #7176856 : 
000000006 00 06 FB 0002F CALLS #6, LIBS$SIGNAL ; 
50 66 3C 00036 18: MOVZWL (RO), RO + 4686 
50 04 Ab CO 00039 ADDL ¢ 4(R65, RO ; 
60 04 287 67 28 0003D MOVC3 (R7), @4(R7), (RO) F 
66 67 AO pore ADDW2 (R7), (R6) : 4691 
04 0004 RET + 4693 


; Routine Size: 70 bytes, Routine Base: _PATSCODE + 11E&6 
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V04=060 1e-8ep-19B4 19:59:53 DERKSVMGHASTERSCPATCH. SACIPATENC.B32047 (10) 

; R38 1638 ! GLOBAL ROUTINE PATSREDUCE_INS (INS_PTR, EDITED_INS_DESC) : NOVALUE = ; 
; 3060 4696 1 !+¢ ; 
; 3061 4697 1 ! FUNCTIONAL DESCRIPTION: F 
; po¢ 4698 1! : 
; 306 $8? 1! This routine takes an ASCIC symbolic instruction and outputs a : 
; 3064 4700 1! reduced ASCII instruction, that is, one with expressions reduces to : 
: 3065 4701 1! single values and symbolic names replaced with values. The resultant : 
; +6 4702 1! instruction is written into the buffer pointed to by EDITED_INS_DESC. ‘ 
3 bee $f8? : The string descriptor is updated to contain the edited length. ; 
: 893 $28? 1 ! FORMAL PARAMETERS: : 
; 30 47 $ 1! : 
; 3071 4707 1! INS_PTR = Pointer to the symbolic insciruction to be reduced . 
3 Ore $78 : EDITED_INS_DESC = String descriptor for output buffer : 
; 3074 4710 1 ! IMPLICIT INPUTS: 3 
: 3075 4711 1! : 
; 3076 rat 1! EDITED_INS_DESC is already initialized. : 
: 3077 4715 1! ° 
; 3078 47146 1°! IMPLICIT OUTPUTS: | é 
; 3079 4715 1! : 
:; 3080 4716 1! The reduced instruction is written into the output buffer. : 
: 3081 4717 1! $ 
; 508 4718 1 ! ROUTINE VALUE: ; 
; 308 4719 1! ; 
; 35084 4720 1! none 3 
; 3085 4721 1! 3 
; 3086 tis¢ 1 ! COMPLETION CODES: 3 
; 308” 47 1! F 
; 3088 4724 1! NONE 3 
; 3090 4726 1 ! SIDE EFFECTS: 3 
; 3091 4727 1! ; : 
; 3092 4728 1! If the reduction could not be performed, then an error message is : 
; 3093 rh: 1! SIGNALed and an UNWIND is performed. 3 
; 3094 4730 1! EDITED_INS_DESC contains an updated Length. : 
Be aT oH 
; 3097 £333 1 3 
; 3098 4734 BEGIN 3 
: 3100 o736 MAP : 
; 3101 $23 EDITED_INS DESC : REF BLOCKC,BYTE), ! String descriptor for reduced instruction : 
3 10 $738 ao INS_PTR : REF VECTORC,6YTE); ! Pointer to input instruction (ASCIC) 3 
gs 2 LOCAL 3 
; 3104 4740 CHAR : BYTE, ' Next character in instruction string | 5 
; 3105 4741 INSTRUC_PTR : REF VECTORC,BYTE], ' Local pointer into instruction 3 
; 108 arte LABEL FLAG ! Label flag : 
; 310 474 INS STG DESC : BLOCK[8, BYTE), ' String descriptor for non-reduced part of : 
; 3108 4744 LEXEME DESC : BLOCK(12,BYTE), ' String descriptor for current lexeme : 
: 3109 4745 LEX_BUF : BLOCKECHS _PER_LEXEME BYTE), i Buffer to hold current lexeme : 
; 3110 ore OPR_FLAG; ! Operand flag F} 
3; 5111 474 : 
2 116 4748 LITERAL : 
3; 311 4749 SPACE = 2x‘20', ' ASCII value for space 3 
; 3114 4750 COMMA = &£X'2C'; ' ASCII value for comma : 


4 
| 
| 


M1 
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; 3115 4751 3 
; 118 47 § ++ : 
3 ii of ? } Define a string descriptor for the instruction to be reduced. : 
: 3119 4755 2 INS_STG_DESCCDSC$W_LENGTH] = - INS PTREO]; | ; 
; 3120 $728 INS_STG_DESC SH POINTER) = INS_PTRL1); : 
3 ' 1 44 INS-PTRE.INS_PTRCOJ+1) = 0; ! Set an end-of-line indicator ‘ 
: 31 § 4759 ‘++ : 
; 3126 4760 ' Get the first lexeme which will be either a label or the opcode. $ 
; 3125 4761 ! Put it into the output buffer. Then search for the next significant : 
3 31 $ t7e¢ ! character. If it is a colon, then move the colon into the output buffer : 
3 ; i a F i and get the opcode and move it in also. : 
; 3129 4765 LABEL_FLAG = CRUE ; 
: 3130 476 EDITEB_INS_DESCCDSCSw LENGTH] = 0; ; 
> 3131 476 LEXEME DESCLDSCSA_POINTER] = LEX BUF; ; 
; 31 ; 4768 LEXEME_DESCCDSCS$W_MAXLEN] = CHS_PER_LEXEME; H 
; 31 4769 REPEAT 3 
3 3134 4770 : 
; 3135 4771 LEXEME _DESCCDSCS$W_LENGTH] = 0; : 
; 3136 477 MAR_GET_LEX(INS_STG_DESC LEXEME DESC); : 
; 3137 477 CHSTOPYT. LEXEME DESTCDSC Ew LENGTAI, -LEXEME_DESCCDSC$A_POINTER], SPACE, 

; 3138 4774 -LEXEME_DESCCOSCSW_LENGTHIJ+1, 

; 3139 4775 CHSPTR(.EDITED INS_DESCCDSCSA_POINTER], .EDITED_INS_DESCCDSC$W_LENGTH])); 

; 3140 4776 EDITED_INS_DESCCDSCS$W_LENGTH] = .EDITED_INS pesctpscsw LENGTH] + 

; 3141 4777 ~-LEXEME-DESTCDSCS$W_LENGTH] + 1; 

3 146 4778 3 IF .LABEL_FLAG 

3; 314 4779 3 THEN 

: gree 4780 4 BEGIN 

; 3145 4781 4 INSTRUC_PTR = .INS_STG_DESCCDSCSA_POINTER]; 

3 $108 4782 4 po 

; 3147 4783 4 CHAR = CHSRCHAR_ACINSTRUC_PTR) 

; 3148 4784 4 UNTIL ((.CHAR NEQU ‘' ')"AND (.CHAR NEQU ‘ "2 

; 3149 4785 5 IF (.CHAR NEQU ':') 

3; 3150 4786 4 THEN 

; 3151 4787 4 EXITLOOP; 

3 136 4788 4 CHSMOVE(1, CHAR, CHSPTR(.EDITED_INS_DESCCDSCSA_POINTER], .EDITED_INS_DESCCDSC$W_LENGTH])); 

7 315 4789 4 EDITED_INS_DESCCOSC$W LENGTH] =~.EDITED INS DESCCDSC$W LENGTH] +71; 

3; 3154 4790 4 INS_STG_DESCCDSC$W_LENGTH) = INS STG _DESCCBSC$W_LENGTA) + 

: 3155 4791 4 .INS_STG DesctDSCSA POINTER] - .INSTRUC_PTR; 

; 3156 4792 4 INS_STG_DESCCDSCSA_POINTER) = .INSTRUC_PTR; 

3 3157 4793 4 LABEL_FCAG = FALSE; 

; 3158 4794 & 

3; 3159 4795 3 ELSE 

; 3160 4796 EXITLOOP; 

; 3161 4797 END; 

$ 166 4798 j 

; 316 4799 !e¢ 

3 3164 4800 ! Now loop to get each operand. The call to GET_OPERAND reduces all 

; 3165 4801 ' the euprese tone and symbols in the operand to absolute numbers. 

: 3166 480 ! The only exception is user defined symbols. These remain un-reduced 

; 4 rt ; to allow correct use of PATCH area addresses in the command file. 

; 35169 4805 REPEAT 

; 3170 480 BEGIN 

3; 3171 480 LEXEME_DESCCOSC$W_LENGTH] = 0; 
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TG_DESC, LEXEME_DESC, FALSE, 0)) 


iN No more operands. Return successfully. 
EDITED_INS_DESCCDSC$W_LENGTH) = 
RETURN; 

44 


i If this is an operand containing an user-defined symbol, then 
it the string ends with a comma or null. Ignore this character. 
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-EDITED_INS_DESCCDSC$W_LENGTH) = 1; 


91 
4) 


DESCEDSCSu LENGTH] = ,LEXEME_DESCCDSC$W_LENGTH) - 
IF (. LeXEnE pest DSC$ LERGTHA EDITED INS) DESCCDSC$Q_LENGTH] + Ny 
-EDITED_ TAs DESC pscéu OMAXLEN ~ 
— BEGIN 
SIGNAL (PATS_ OUTCMDLNG+MSGSK_SEVERE); 
CHSCOPY(.LEXEM DESCLDSCSW, ENGTHI, .LEXEME_DESCCDSC$A_POINTER], COMMA, 
; LEXEME DESC Bsc$w 
HS$PTR(7EDITED_INS Sah POINTER, .EDITED_INS DESCLDSCSW_ LENGTH])); 
EDITED_INS_DESCCBDSC$Q_LENGTH) =~.EDITED_INS DESCCDSC$Q LENGTH) + 
ram -LEXEME_DESCCDSCSW_ CENT’ ; 13 
END; ! End of PATSREDUCE_INS 
03FC 00000 .ENTRY ee INS, Save R2,R3,R4,R5,R6,R7,R8.- ; 4694 
5E 30 ¢2 00002 SUBL2 : 
28 «AE 04 BC 9B 00005 MOVZBW ains PIR, INs STG_DESC : 4755 
2c OA 04 AC 01 C1 OOO0A ADDL3 INS INS_STG_DESC+4 : 4756 
50 04 BC 9A 00010 MOV ZBL Srhs PTR, at : 4757 
50 04 AC CO 00014 ADDL2 INS _PTR, RO F 
01 AO 94 90018 CLRB =: 1(RO) : 
59 01 DO 0001B MOVL #1, LABEL_FLAG > 4765 | 
56 08 AC DO OOOIE MOV: EDITED. INS_DESC, R6 t 4766 
66 B4 00022 CLRW —s- (RO) : 
20 AE 6 : 0024 MOVAB LEX_BUF, LEXEME DESC+4 > 4767 
24 ~=AE 19 BO 00028 MOVW #257 LEXEME DESC+S > 4768 
1c AE B4 002C 1$: CLRW  LEXEME_DESC™ : 4771 
1C AE 9F OO002F PUSHAS LEXEME DESC : 4772 
2C AE 9F 000 é PUSHAB INS_STG_DESC : 
FFSC CF 02 FB 000 CALLS #2, MAR~GET_LEX ; 
51 1¢ AE 3C OO03A MOVZ2WL LEXEME_ DESC? R1 : 477% 
51 06 00 INCL RI ; | 
50 66 3¢ 0004 MOVZWL (R6), RO > 4775 | 
50 04 Ab CO 0004 DDL2. 4(R6S, RO ; 
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| 
51 20 20 BE 1C ag 2c 9047 MOVCS LEXEME_DESC, @LEXEME_DESC+4, #32, R1, (RO) ; ; 
50 66 3 Gost MOVZWL (R6), RO + 4777 | : 
1 10 AE ¢ 52 MOVZWL er DESC, R1 : | ; 
0 51 CO 00056 ADDL : | : 
&6 0 01 Al 0 059 ADDW ( R6) : | ; 
7 9 £9 0005D BLBC thaet FLAG, 3$ + 4778 | : 
Bf 2c AE D0 9960 MOVL $ STG Loescee, INSTRUC_PTR ; 4781 ; 
8 87 90 00064 2%: MOVB CUNSTRUE. PTR)+, CHAR : 4783 3 
20 58 91 00067 CMPB + 4784 ; 
FB 13 O006A BEQL Se : ; 
09 58 4 006¢ CMPB CHAR, "9 : | : 
F3 6F BEQL $ : : 
3A 58 91 00071 CMPB GUAR, #58 + 4785 | : 
21 12 00074 BNEQ $ : ; 
50 66 3C 00076 MOVZWL (R6), RO : 4788 ; 
50 04 Ab CO 00079 ADDL2  4(R6S, RO : ; 
60 58 90 0007D MOVB CHAR, (RO) : : 
66 B6 00080 INCW  (R6) + 4789 | ; 
50 28 AE 3C 00082 MOVZWL INS_STG_DESC, RO : 4791 ; 
50 2C = AE «CO 00086 ADDL 2 INS-STG-DESC+4, RO : ; 
28 AE 50 57 A3 OO08A SUBW3 INSTRUC“PTR, RO, INS_STG_DESC : ; 
2c OA 57 DO 0008F MOVL INSTRUC “PTR, INS_STG_DESC+4 + 479 : 
59 D4 00093 CLRL = LABEL_FLAG : 479 ; 
95 11 00095 BRB 1$ : 4778 : 
1¢ (AE OB 90097 3$: CLRW LEXEME_DESC : 4807 ; 
20 AE 6E 9E O009A MOVAB LEX_BUF, OTE MEME _DESC+4 : 4808 : 
7E 7C€ 0009 CLRQ  =(SP) : 4809 : 
24 AE 9F OOOA PUSHAB LEXEME_DESC : ; 
34 AE 9F OOOA PUSHAB INS_STG_DESC : ; 
F330 CF 04 FB OOOA6 CALLS #4, ~GET-OPERAND : ; 
57 50 DO OO0AB MOVL RO, OPR7FLAG : : 
03 57 £8 OOOAE BLBS OPR_FLAG, 4$ : : 
66 87 000B1 DECW (ROS > 4815 ; 
04 00083 RET > 4811 ; 
03 57 D1 000B4 4$: CMPL  OPR_FLAG, #3 : 4823 ; 
03 it 0087 BNEG 5$~ : ; 
1c AE 00B9 DECW  LEXEME_DESC : 4825 ; 
50 1€ AE 3C OO00BC 5S: MOVZWL LEXEME Dest, RO > 4826 : 
51 66 3 99¢0 MOVZWL (R6), RI : ; 
50 31 69 000¢ ADDL2 R1, RO : | : 
0 D6 d0¢6 INCL 0 : : 
50 08 Ab 10 00 ED 00¢ CMP7V #0, #16, B(R6), RO + 4827 | : 
D1 OOcE BGEQ ; | ; 
006D828A 8F DD 000D PUSHL #7176842 : 4830. : 
000000006 00 1 FB 00006 CALLS #1, LIBSSIGNAL : ; 
51 1¢ AE 3C OOODD 68: MOVZ2WL LEXEME_DESC, R1 > 4833 | ; 
51 be itd INCL R1 3 3 
50 66 3C O00E3 MOVZWL (RG) RO. t 4834 | ; 
50 04 Ad CO O0E6 ADDL 4 (R65 ; | : 
51 2c 20 +BE 1C A 2C OOEA MOVCS LEXEME DESC, QLEXEME_DESC+4, #44, R1, (ROD ; | ; 
50 6b 3 F MOVZWL (R6), RO > 4836, ; 
1 1¢ AE 3C OO0F MOVZWL LEXER DESC, R1 : : 
20 51 CO OOF ADDL2 R1, RO” ; ; 
66 0 1 Al OOOFC ADDWS #1. RO, (RO) : ; 
5 11 00100 BRB 3$ : 4797. ; 
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; 208 1872 } GLOBAL ROUTINE PATSRESOLVE_INS (BUFFER_PTR) : NOVALUE = 

; 3206 4841 1 !++ 

; soe rt Pk } FUNCTIONAL DESCRIPTION: 

; 3209 4844 1! This routine resolves all the forward references in the FWR table. 

: 3210 4845 1! It encodes the operands and enters them into the appropriate bytes 

: 3211 oRe8 1! in the buffers. 

3 #516 4847 1! 

: 31 4848 1 ! FORMAL PARAMETERS: 

; 3214 4849 1! 

3 $512 4850 1! BUFFER_PTR - Address of the descriptor for the buffer holding the 

: 16 4851 1! binary instruction stream to be resolved 

: 3217 s826 , 3 

; 3218 485 1 ! IMPLICIT INPUTS: 

; 3219 4854 1! 

; 3220 4855 1! PATSGL_FWRLHD - ForWard Reference table Listhead 

: 3221 4856 1! 

H $55§ 4857 1 ! IMPLICIT OUTPUTS: 

8 Bee 4858 1! 

: 3224 4859 1! The resolved operands are witten into the instruction byte streams. 

3; 3225 4860 1! 

; 3226 4861 1 ! ROUTINE VALUE: 

: 3227 4862 1! 

: 3228 4865 1! FALSE - if any resolution fails. 

: 3229 4864 1! TRUE - if all resolutions were successful. 

: 3230 4865 1! 

: 3231 4866 1 ! COMPLETION CODES: 

3 $538 4867 1! 

: 323 4868 1! NONE 

: 3234 4869 1! : R 
; $$%2 4870 1 ! SIDE EFFECTS: 

: 3236 4871 1! 

3; 3237 4872 1! none 

; 3238 4875 1! 

; 3239 4874 1 !-- 

: 3240 4875 1 
> 3241 4876 2 BEGIN 

; e506 4877 

: 324 4878 MAP 

3 re rs 144 BUFFER_PTR : REF BLOCKC,BYTE); ! String descriptor for binary instruction b> 
3 ; 46 4881 LOCAL 

3 See 488 OUT _BYTE_PTR ' Pointer into output buffer 

: 3248 488 POINTER = REF BLOCKC,BYTE), ' Pointer to forward reference table entry 
3 rH 4884 OPR_FLAG, : bey if operand found valid 

: 3250 4885 INST_STG_DESC : BLOCK f8 BYTE), ' Instruction string descriptor 
: 51 osne OPINFO_PTR : REF BLOCK OPTSIZE. BYTE], ' Pointer into the OPINFO table 
3 26 tH BRANCH SIZE 

: 325 4 OPRND_STG_DESC : BLOCKL12,BYTE) ! String descriptor for next operand 
; 3254 4889 OPRND~BUF~: VECTORCMAX_BUf _S17,BYTE); i Buffer to hold next operand 

; 3255 4890 

; 28 4891 'e+ c 

; 238 ? i : Now loop, resolving each forward reference in the table. 

2 59 4894 WHILE (.PATSGL_FWRLHD NEQA 0) 

; 3260 4895 DO 


2 
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: 3261 4896 BEGIN 3 
; 6 4897 POINTER = .PATS$GL_FWRLHD é 
: 6 4898 INST_STG_DESC COSCS$wW_ CENGTH] = ERCFWRSW_OPRNDLNG); é 
> 3264 4899 INST-STG_DESC bsC$a-pointer] =" ay FEREE FWRSA_OPRNDADRI; | ; 
: 3265 4900 OPRND_STG_DESCCDSCSW_LENGTH] = 0; | : 
: 3266 4901 OPRND_STG_DESC DSCSA_POINTER] = OPRND_BUF; : 
> 3267 490 OPRND-STG-DESCLDSC$W-MAXLEN] = MAX "BUF.S 12; ; 
: 3268 490 OPINFO PTR ¢ Bt bene tes 1 3 
3; 3269 4904 OPR_FLAG = OPERAND( INST_S G DESC, OPRND_STG_ DESC, TRUE, 1 * .OPINFO_PTRE OP_CONTEXT(.POINTERLFW | ; 
; $570 $309 ; TF TNOT. .OPR FFEAG) OR (.OPR HFLAG” EQLU OPR_FORW_REF) : 
; 3576 pat SIGNAL (PAT$S_INVOPRND+MSGSK_WARN, 2, .POINTERCFWRSW_OPRNDLNG], .POINTERCFWRSA_OPRNDADR)); : 
3; 3274 4909 '++ : 
; 3275 4910 i Extract and encode one operand reference. Give up if this fails. ; 
; 3276 4911 3 in : 
; $500 491 3 BRANCH SIZE = NOB ‘ 
: 3278 491 3 BYTE _PTR = PnSriRC. BUFFER_PTRCDSCSA_POINTER], .POINTERCFWRSB_BUFOFFI); : 
3; 3279 4914 3 ” To PINE FO_PTRLOP_N UMOP $) €QC . POINTERCFWRSB_NTHOPRND J) OR 3 
: asco <bi2 : PINFO-PTR oP “NUMOPS EQL ASM_DIR_OP) : 
3: 3282 4917 3 IF (.POINTERCFWRSB_NTHOPRND] LSS MAXOPRNDS) OR 3 
; 3283 4918 4 (. OPINFO _PTRCOP_ -NUMOPS) EQL ASM_DIR_OP) : 
; 3284 4919 3 HEN 3 
; 3285 4920 4 BEGIN : 
: 3286 4921 4 BRANCH_SIZE = .OPINFO_ 4ye -BR_TYPE); é 
: 3287 4922 5 If (.BRANCH_SIZE EQLU-BR_L : 
; 3288 4923 4 tAEN 3 
; 3289 4924 4 BRANCH_SIZE = A_LONGWORD; | ; 
; 3290 4925 3 END; 3 
; 3291 4926 4 IF NOT (PATSGL LERRCODE = ENC eh B STG_DESC, OUT_BYTE_PTR, . 
: 3292 4927 4 .OPINFO_PTRE OP~CONTEXT(.POINTERLFWRSB_NTHOPRNDJ) J, ; 
3 3293 4928 4 -BRANCH_ Soe. POINTERCFWRSL_PCJ, .OPINFO_ PTR) 3 
3 3294 4929 3 THEN 3 
3; 3295 4930 4 hg 3 
; 3296 4931 4 5 
: 3297 4932 4 "tearend Syntax'’ error. Instruction substution cannot be | 3 
: 43 4933 4 done as it would alter all the offsets in the Forward Reference 3 
3; 3299 4934 4 i table (FWRSB BUF OFF fields) and the remaining resolutions : 
3 $en0 abe? : i would be written into the wrong places in the buffer. | : 
; 3302 4937 5 iF (.PATSGL_ERRCODE EQL PATSK_BR_RANGE) : 
; 3303 4938 4 THEN g 
; $30¢ 4939 4 SIGNAL (PAT$_BRTOOFAR+MSGS$K_INFO); 3 
2 4 ieee ; ape tile INVOPRND +MSGSK WARN, i .POINTERCFWRSW _OPRNDLNG], .POINTERCFWRSA_OPRNDADR)) : 
; 3307 4942 4 IF (.OPRND 51G_DESCCDSC$W_LENGTH] NEQ 0) : 
3; 3309 4944 SIGH CPA. Uta dae Mage oe WARN, 2, .POINTERCFWRSW_OPRNDLNG), : 
> 3310 4945 EREFURSA_OP OPRADADRS); : 
3 3311 494 PATSGL_FWRLHD = tid t FWRSL FLINK); é 
; $5 494 PATSFREERELEASE ( POINTER, CrURSC Sze + 3)/4); : 
; 331 4948 @ END; | : 
3 3314 4949 RETURN; : 
; 3315 4950 1 END; ! End of PATSRESOLVE_INS : 


f 
PATENC 16-Sep-1984 00:40: VAX-11 Bliss-32 V4.0-742 Page 96 
v04-000 19-88-1382 00:39:43 DISKSVMSMASTER:CPATCH, SRCIPATENC.B32:1> (15) 


07FC 00000 -ENTRY PATSRESOLVE_INS, Save R2,R3,R4,R5,R6,R7,RB,~; 4839 ; 
SA 99000 G EF 9€ 908 MOVAB PATSGL_FWRLHD, R10 : ; 
aS SBRRRHERE. bb SE Guutg —RRYAB a setaganag #9 : : 
§ FOE CE 9 0017 MOVAB -536(SP), SP : ; 
4 AC 00 0001 MOVL BUFFER_PTR, RS > 4913 ; 
0 6A DO 00020 1$: MOVL § PATSGL-FWRLHD, RO 3 4894 ; 
"0% $09 eee fe] 
52 50 0 00066 28: MOVL©—RO,. POINTER > 4897 ; 
F8 AD 08 A2 B 200 MOVW  § 8(POINTER), INST_STG_DESC ; 4898) ; 
FC AD 0C Ae 00 000 ; MOVL  12(POINTERS, INST_STG_DESC+4 > 4899 ; 
EC AD 84 000 CLRW  OPRND_STG_DESC > 4900 ; 
FO AD 4 AE i 0036 MOVAB OPRND-BUF, OPRND_STG_DESC+4 > 4901 ; 
F4 OAD 0200 8F B 00038 MOVW #512, OPRND_STG_BESC78 > 4902 | ; 
53 10 A2 00 00041 MOVL _16(POINTER)> OPINFO_PTR : 490 ; 
5] 0B A2 9A 00045 MOVZBL 11(POINTER). R? > 4904 | ; 
51 4 C4 90049 MULL 4, RI : ; 
50 06 a3 04 i 004¢ EXTZV R1. #4, 4(OPINFO_PTR), RO : | ; 
4 ¢ DD 00086 Roel. ar 
01 DD 00058 PUSHL #1 : | ; 
EC AD 9F OO05A PUSHAB OPRND_STG_DESC ; | 
F8 AD 9F 0005D PUSHAB INST_STG_BESC ; 
F274 CF os FB 00060 CALLS #4, GET_OPERAND ; | 
57 0 D0 00065 MOVL RO FLAG ; | 
05 57 £9 00068 BLBC OPR_FLAG, 3$ > 4905 
13 92 Sooee Sueh Spec ttt ee 
0c Ag bd 00070 3$: PUSHL 12(POINTER) : 4907 
7E 08 Ag 3¢ 9007 MOV Z4L B{POINTER), ~(SP) 
00608278 8F DD 00079 PUSHL #7176826 ; 
68 04 FB OOO7F CALLS #4, LIBSSIGNAL ; 
56 D4 00082 4$: CLRL_ BRANCH SIZE : 491 
6E 04 AS 14 Ag ci 0084 ADDL3 20(POIRTER), 4(R5), OUT_BYTE_PTR : 491 
50 0B Ad 9A OOOBA MOVZBL 11(POINTER), RO : 4914) 
50 04 AB 04 00 FC OO8E CPV #0, #4, SCOPINFO_PTR), RO : 
FFFFFFFE © 8F 04 A3 04 96 FC a0h cMpy 0, #4, 4(OPINFO_PTR), #-2 ; 4915 
06 08 A2 91 OOOA2 5S: CMPB  =s-:« 11 (POINTER), #6 > 4917) 
¢ 1F OOOA BLSSU ; | 
FFFFFFFE 8 04 a3 04 0 FS 0A CHP #0. #4, 4(OPINFO_PTR), #-2 ; 4918 
56 07 A3 4 4 EF 00084 6: EXTZV #4, #4, 7(OPINFO_PTR), BRANCH_SIZE > 4921 | 
3 $ D1 BA CAPL BRANCH. SIZE. rs} ¢ 4922 | 
56 i D6 0008F MOVL #4, BRANCH SIZE ; £936 | 
3 bb ce 7$: PUSHL OP INF o PTR > 4928 
94 A2 9¢ 000C PUSHAB 4(POINTER) ; | 
00 8F ge C7 PUSHR #*M<R4,R6> 5 
10 AE 9F 000CB PUSHAB OUT_BYTE_PTR > 4926. 


2 

PATEN 18-5 Sep VAX=-11 Bliss-32 V4.0-742 97 
Y04~060 14-Sep 1382 99: 23: 3 DISKSVMSMASTER: CPA ATCH. SRCIPATENC. B32. 79° 615) 
EC AD OF Ce PUSHAB OPRND S16 DESC : 
F881 CF F D CALLS » ERC AND + 4928 
9 ") D6 MOVL + EATSOL. EERRCODE : 

E D BLBS ; 
D1 ne CMPL nbs 98 LERRCODE, #2 : 4937 
9 12 O000F BNEQ : 
00608223 BF DD 0 E1 PUSHL 76739 t 4939 
68 1 FB 000E7 CALLS it L1B$S1GNAL : | 
o¢ A pd EA 8$ PUSHL 12(POINTER) + 4940 
7E 08 Ao 3C OO0ED MOVZWL 8(PO DINTERD. -(SP) : 

DD OOOF1 PUSHL : 

00608278 8F DD OOF 3 PUSHL 76824 ; 
7.  s F CALLS LIBS$SIGNAL : | 
EC AD B5 OOOFC 9S: TSTW sty ST6_DESC + 4942 
12 13 OOOFF BEQL ; | 
OC A bd 0101 PUSHL : *POIN NTER) + 4945) 
7E 08 A2 3¢ 001 MOVZWL 8(POINTER), =(SP) 7 4964. 
0 DD 00108 PUSHL @# : | 
006D8278 8F DD 0010A PUSHL  # 176824 : | 
6% 04 FB 90119 CALLS #4, LIBSSIGNAL ; | 
6A 62 DO 00113 108:  MOVL (POINTER) » PATSGL_FWRLHD > 4946. 
DD 00116 PUSHL a + 4947 | 
DD 00118 PUSHL ; 
000000006 EF FB OO1IA CALLS Wo. NPAT SFREERELEASE : 
FEFC 31 00121 BRW 1$ + 4894 | 
04 00124 RET ; 4950 | 


; Routine Size: 293 bytes, Routine Base: _PATSCODE + 132E 
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PATENC 16-Sep-1984 09:40: VAX-11 Bliss-32 V4.0-742 Page 98. 

v04=000 Freon ae Fee ts TN admOMASTERcChATCH SRCOPATENC.B32647" (100 | 
: HRY 495] 1 END : 
: 3318 4952 0 ELUDOM é 
.EXTRN LIBSSIGNAL : 
; PSECT SUMMARY ; 
: Name Bytes Attributes ; 
> _PATSOWN 1 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) : 
; _PATSCODE 5203 NOVEC,NOWRT, RD, XE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) é 
Be. ABS Cw 0 NOVEC,NOWRT,NORD ,NOEXE,NOSHR, LCL, ABS, CON,NOPIC,ALIGN(O) $ 
> _PATSPLIT 6 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(O) ; 
| ; 
3 Library Statistics | 3 
Pere 7 eee eee ae Syabelg essensse Pages Processing | 3 
; File Total Loaded Percent Mapped Time : 
: _$255$DUA28:(SYSLIBILIB.L32;1 18619 ? 0 1000 00:01.9 : 
3 
3; Information: 1 : 
; Warnings: : 
; Errors: : 
on 
; COMMAND QUALIFIERS | : 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/VARIANT:1/LIS=LIS$:PATENC/OBJ=OBJ$:PATENC MSRC$:PATENC/UPDATE=(ENHS$:PATENC) | : 

Size: 5203 code + 18 data bytes 
Time 4.7 


3; Run : 01:44. 
; Elapsed Time: 05:52.8 
: Lines/CPU Min: 83 

3 Lexemes/CPU-Min: 22673 

: pel | Used: 506 pages 
; Compilation Complete 
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